diff options
| author | Richard W.M. Jones <rjones@redhat.com> | 2011-06-18 13:00:00 +0100 |
|---|---|---|
| committer | Richard W.M. Jones <rjones@redhat.com> | 2011-06-18 13:00:00 +0100 |
| commit | 5c3c7e8825341e18c9449976f8a321a04cc78d79 (patch) | |
| tree | 4df06951c3d35470edd44fc15b55721ae7689c0e /perl | |
| parent | 4ee190628bc05f0c8fad1f6d9c3e85619a91e8b8 (diff) | |
| download | libguestfs-5c3c7e8825341e18c9449976f8a321a04cc78d79.tar.gz libguestfs-5c3c7e8825341e18c9449976f8a321a04cc78d79.tar.xz libguestfs-5c3c7e8825341e18c9449976f8a321a04cc78d79.zip | |
perl: Don't use qw() as parentheses.
In Perl 5.14:
Use of qw(...) as parentheses is deprecated at perl/blib/lib/Sys/Guestfs/Lib.pm line 1111.
Diffstat (limited to 'perl')
| -rw-r--r-- | perl/lib/Sys/Guestfs/Lib.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl/lib/Sys/Guestfs/Lib.pm b/perl/lib/Sys/Guestfs/Lib.pm index 95c18a51..188d735a 100644 --- a/perl/lib/Sys/Guestfs/Lib.pm +++ b/perl/lib/Sys/Guestfs/Lib.pm @@ -1108,7 +1108,7 @@ sub _find_grub_prefix die(__"Can't find grub on guest") unless($g->exists('/boot/grub/menu.lst')); # Look for the most specific mount point in mounts - foreach my $path qw(/boot/grub /boot /) { + foreach my $path (qw(/boot/grub /boot /)) { if(exists($mounts->{$path})) { return "" if($path eq '/'); return $path; |