From: Richard Jones <rjones@trick.home.annexia.org>
Date: Fri, 10 Jul 2009 10:43:17 +0000 (+0100)
Subject: '$_' should be marked as a local variable in Sys::Guestfs::Lib::open_guest.
X-Git-Tag: 1.0.57~6
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=0fc6b7affd28ad77566e832f338650b771145ea1;p=libguestfs.git

'$_' should be marked as a local variable in Sys::Guestfs::Lib::open_guest.
---

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 = @_;