From 0fc6b7affd28ad77566e832f338650b771145ea1 Mon Sep 17 00:00:00 2001
From: Richard Jones <rjones@trick.home.annexia.org>
Date: Fri, 10 Jul 2009 11:43:17 +0100
Subject: [PATCH] '$_' should be marked as a local variable in
 Sys::Guestfs::Lib::open_guest.

---
 perl/lib/Sys/Guestfs/Lib.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/perl/lib/Sys/Guestfs/Lib.pm b/perl/lib/Sys/Guestfs/Lib.pm
index 84b9428..fe21981 100644
--- a/perl/lib/Sys/Guestfs/Lib.pm
+++ b/perl/lib/Sys/Guestfs/Lib.pm
@@ -118,6 +118,7 @@ and this function can only open disk images.
 
 sub open_guest
 {
+    local $_;
     my $first = shift;
     my %params = @_;
 
-- 
1.8.3.1