diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-04-02 16:26:43 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-04-02 16:26:43 +0000 |
commit | 33e037509a7e6ce5d0e0cb61c36213d063127774 (patch) | |
tree | 5c7b8c4beb4eba52abba6bc2c9c64acd05233b43 | |
parent | 29a2fcaa1b6cc36933adfea0e689ed79deb6d2cc (diff) | |
download | perl-MDK-Common-33e037509a7e6ce5d0e0cb61c36213d063127774.tar perl-MDK-Common-33e037509a7e6ce5d0e0cb61c36213d063127774.tar.gz perl-MDK-Common-33e037509a7e6ce5d0e0cb61c36213d063127774.tar.bz2 perl-MDK-Common-33e037509a7e6ce5d0e0cb61c36213d063127774.tar.xz perl-MDK-Common-33e037509a7e6ce5d0e0cb61c36213d063127774.zip |
use an explicit glob() in order to make perl_checker not to puke
-rwxr-xr-x | lib/MDK/Common.pm.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/MDK/Common.pm.pl b/lib/MDK/Common.pm.pl index 1636b99..e0c6c59 100755 --- a/lib/MDK/Common.pm.pl +++ b/lib/MDK/Common.pm.pl @@ -33,7 +33,7 @@ L<MDK::Common::Various>. EOF -foreach my $f (<lib/MDK/Common/*.pm>) { +foreach my $f (glob("lib/MDK/Common/*.pm")) { (my $pkg = $f) =~ s|/|::|g; $pkg =~ s!lib::!!; open my $F, $f or die "can't open file $f"; |