diff options
| author | Richard W.M. Jones <rjones@redhat.com> | 2011-07-27 15:43:12 +0100 |
|---|---|---|
| committer | Richard W.M. Jones <rjones@redhat.com> | 2011-07-27 15:49:04 +0100 |
| commit | 60e23963654d08128e1011603b0eb6337fadee8f (patch) | |
| tree | 371b3ac647e2662ed1c033a35ae449942081d54b | |
| parent | 9729402e7524964f216c6232ebc4e2e3eaa03886 (diff) | |
| download | libguestfs-60e23963654d08128e1011603b0eb6337fadee8f.tar.gz libguestfs-60e23963654d08128e1011603b0eb6337fadee8f.tar.xz libguestfs-60e23963654d08128e1011603b0eb6337fadee8f.zip | |
perl: Fix another place where qw() was used as parentheses.
This is a fix for Perl 5.14.
See previous commit 5c3c7e8825341e18c9449976f8a321a04cc78d79.
(cherry picked from commit c70532ab4b3d977ed7484e473107808b22d90a2a)
| -rw-r--r-- | perl/lib/Sys/Guestfs/Lib.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl/lib/Sys/Guestfs/Lib.pm b/perl/lib/Sys/Guestfs/Lib.pm index 4f094dea..fc6a10f6 100644 --- a/perl/lib/Sys/Guestfs/Lib.pm +++ b/perl/lib/Sys/Guestfs/Lib.pm @@ -1339,10 +1339,10 @@ sub _find_modprobe_aliases my %modprobe_aliases; - for my $pattern qw(/files/etc/conf.modules/alias - /files/etc/modules.conf/alias - /files/etc/modprobe.conf/alias - /files/etc/modprobe.d/*/alias) { + for my $pattern (qw(/files/etc/conf.modules/alias + /files/etc/modules.conf/alias + /files/etc/modprobe.conf/alias + /files/etc/modprobe.d/*/alias)) { for my $path ( $g->aug_match($pattern) ) { $path =~ m{^/files(.*)/alias(?:\[\d*\])?$} or die __x("{path} doesn't match augeas pattern", |