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-07-16 09:27:08 +0100 |
| commit | ddb10a9aaf6fee880a10da09ff0754eb33202b71 (patch) | |
| tree | 46d559f1827d218fbd56879e2248bff2e868053e /perl/lib/Sys/Guestfs/Lib.pm | |
| parent | ef9f07095f3f4b26dcc36305bfb348ecebc5e735 (diff) | |
| download | libguestfs-ddb10a9aaf6fee880a10da09ff0754eb33202b71.tar.gz libguestfs-ddb10a9aaf6fee880a10da09ff0754eb33202b71.tar.xz libguestfs-ddb10a9aaf6fee880a10da09ff0754eb33202b71.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.
(cherry picked from commit 5c3c7e8825341e18c9449976f8a321a04cc78d79)
Diffstat (limited to 'perl/lib/Sys/Guestfs/Lib.pm')
| -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; |