diff options
| author | Thierry Vignaud <tv@mageia.org> | 2011-09-20 18:38:49 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2011-09-20 18:38:49 +0000 |
| commit | b6dbcb2243b7afa81f4fa70459dd827fb62f5385 (patch) | |
| tree | b3edb6a766fc1f57486707f0a55bb88c13b303d4 | |
| parent | 050c59723a1fa90a7145ac4bab87518fa7cc3a1b (diff) | |
| download | perl_checker-b6dbcb2243b7afa81f4fa70459dd827fb62f5385.tar perl_checker-b6dbcb2243b7afa81f4fa70459dd827fb62f5385.tar.gz perl_checker-b6dbcb2243b7afa81f4fa70459dd827fb62f5385.tar.bz2 perl_checker-b6dbcb2243b7afa81f4fa70459dd827fb62f5385.tar.xz perl_checker-b6dbcb2243b7afa81f4fa70459dd827fb62f5385.zip | |
fix some method names in URPM
| -rwxr-xr-x | fake_packages/gen.pl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/fake_packages/gen.pl b/fake_packages/gen.pl index b2669b0..50dbf35 100755 --- a/fake_packages/gen.pl +++ b/fake_packages/gen.pl @@ -99,6 +99,7 @@ foreach my $pkg (sort keys %l) { foreach my $name (sort keys %{$l{$pkg}}) { my $para = $l{$pkg}{$name}; $name = $pkg . '::' . $name if $name =~ /^(ne|eq|foreach|format|ge|length|sub|x|xor|y)$/; + $name =~ s/__XS$//; # fix for URPM if (@$para) { print "sub $name { my (", join(", ", @$para), ") = \@_ }\n"; } else { |