summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2011-09-20 18:38:49 +0000
committerThierry Vignaud <tv@mageia.org>2011-09-20 18:38:49 +0000
commitb6dbcb2243b7afa81f4fa70459dd827fb62f5385 (patch)
treeb3edb6a766fc1f57486707f0a55bb88c13b303d4
parent050c59723a1fa90a7145ac4bab87518fa7cc3a1b (diff)
downloadperl_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-xfake_packages/gen.pl1
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 {