diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-09-06 10:55:38 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-09-06 10:55:38 +0000 |
| commit | a0576df229cdf74cc0cade67443b77ec61241bb1 (patch) | |
| tree | 21c34cf5395b3f453c65c7713b1e7bb95f21c680 | |
| parent | 59a363c8f65856143aea9c5db3ccb837d7aa4329 (diff) | |
| download | perl_checker-a0576df229cdf74cc0cade67443b77ec61241bb1.tar perl_checker-a0576df229cdf74cc0cade67443b77ec61241bb1.tar.gz perl_checker-a0576df229cdf74cc0cade67443b77ec61241bb1.tar.bz2 perl_checker-a0576df229cdf74cc0cade67443b77ec61241bb1.tar.xz perl_checker-a0576df229cdf74cc0cade67443b77ec61241bb1.zip | |
make it parse latest URPM
| -rwxr-xr-x | fake_packages/gen.pl | 2 |
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 { |