From b6dbcb2243b7afa81f4fa70459dd827fb62f5385 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 20 Sep 2011 18:38:49 +0000
Subject: fix some method names in URPM

---
 fake_packages/gen.pl | 1 +
 1 file changed, 1 insertion(+)

(limited to 'fake_packages')

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 {
-- 
cgit v1.2.1