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:56:18 +0100 |
| commit | 70e0696422d355635dcc00372a582b2abf07a9d6 (patch) | |
| tree | 5dd45aec05f059842fc7f61452098a3d0756a875 /perl/lib/Sys | |
| parent | 019904721b01adf2def2added7ca6b52c55563a8 (diff) | |
| download | libguestfs-70e0696422d355635dcc00372a582b2abf07a9d6.tar.gz libguestfs-70e0696422d355635dcc00372a582b2abf07a9d6.tar.xz libguestfs-70e0696422d355635dcc00372a582b2abf07a9d6.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)
Diffstat (limited to 'perl/lib/Sys')
| -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", |