diff options
| author | Richard Jones <rjones@trick.home.annexia.org> | 2009-07-10 11:43:17 +0100 |
|---|---|---|
| committer | Richard Jones <rjones@trick.home.annexia.org> | 2009-07-10 11:43:17 +0100 |
| commit | 0fc6b7affd28ad77566e832f338650b771145ea1 (patch) | |
| tree | d152f6882cb06f69c9c82ba163b830ff8c6d924c /perl/lib | |
| parent | 03e1f74ee08dc71bc09cc7655bf4732685f80b43 (diff) | |
| download | libguestfs-0fc6b7affd28ad77566e832f338650b771145ea1.tar.gz libguestfs-0fc6b7affd28ad77566e832f338650b771145ea1.tar.xz libguestfs-0fc6b7affd28ad77566e832f338650b771145ea1.zip | |
'$_' should be marked as a local variable in Sys::Guestfs::Lib::open_guest.
Diffstat (limited to 'perl/lib')
| -rw-r--r-- | perl/lib/Sys/Guestfs/Lib.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/perl/lib/Sys/Guestfs/Lib.pm b/perl/lib/Sys/Guestfs/Lib.pm index 84b94287..fe219812 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 = @_; |