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 16:00:48 +0100 |
| commit | 2a12a89a3aebaf099b22ee85101a00e461da8a10 (patch) | |
| tree | 9c02e1262b0bec98a886f442957495d4b44dcde7 | |
| parent | b36c2d176f52fcc6413edd513d4a3a5969e7c265 (diff) | |
| download | libguestfs-2a12a89a3aebaf099b22ee85101a00e461da8a10.tar.gz libguestfs-2a12a89a3aebaf099b22ee85101a00e461da8a10.tar.xz libguestfs-2a12a89a3aebaf099b22ee85101a00e461da8a10.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", |