summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-09-06 10:55:38 +0000
committerThierry Vignaud <tv@mageia.org>2012-09-06 10:55:38 +0000
commitddef2065aab03dc1e638d8489fe697b026875965 (patch)
tree21c34cf5395b3f453c65c7713b1e7bb95f21c680
parent4fff9cccd2927f074122261ed7073ce64c9ac4c8 (diff)
downloadperl_checker-ddef2065aab03dc1e638d8489fe697b026875965.tar
perl_checker-ddef2065aab03dc1e638d8489fe697b026875965.tar.gz
perl_checker-ddef2065aab03dc1e638d8489fe697b026875965.tar.bz2
perl_checker-ddef2065aab03dc1e638d8489fe697b026875965.tar.xz
perl_checker-ddef2065aab03dc1e638d8489fe697b026875965.zip
make it parse latest URPM
-rwxr-xr-xfake_packages/gen.pl2
1 files changed, 1 insertions, 1 deletions
diff --git a/fake_packages/gen.pl b/fake_packages/gen.pl
index e5c367b..1e7786b 100755
--- a/fake_packages/gen.pl
+++ b/fake_packages/gen.pl
@@ -79,7 +79,7 @@ sub parse_xs {
} elsif (/^\s*ALIAS:\s*$/) {
$state = 'alias';
} elsif ($state eq 'alias') {
- if (my ($f) = /^\s*(\S+)\s*=\s*\d+\s*$/) {
+ if (my ($f) = /^\s*(\S+)\s*=\s*\w+\s*$/) {
my $pkg = $f =~ s/(.*)::// ? $1 : $current_package;
$l{$pkg}{$f} ||= $l{$current_package}{$current_name};
} else {