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:43:12 +0100 |
| commit | c70532ab4b3d977ed7484e473107808b22d90a2a (patch) | |
| tree | 536f90d9550737e985e3f889cad49648c25b5164 /perl | |
| parent | 2b8b3f9794ceb43eabd3083e225c669896d8b186 (diff) | |
| download | libguestfs-c70532ab4b3d977ed7484e473107808b22d90a2a.tar.gz libguestfs-c70532ab4b3d977ed7484e473107808b22d90a2a.tar.xz libguestfs-c70532ab4b3d977ed7484e473107808b22d90a2a.zip | |
perl: Fix another place where qw() was used as parentheses.
This is a fix for Perl 5.14.
See previous commit 5c3c7e8825341e18c9449976f8a321a04cc78d79.
Diffstat (limited to 'perl')
| -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", |