[packages/swish-e.git] / namespace.patch

--- swish-e-2.4.7.orig/perl/API.pm
+++ swish-e-2.4.7/perl/API.pm
@@ -2,7 +2,7 @@
 
 # $Id: API.pm 2499 2009-10-04 03:34:07Z karpet $
 
-use vars qw/ @ISA $VERSION /;
+use vars qw/ @ISA $VERSION/;
 
 $VERSION = '0.04_01';
 
@@ -31,7 +31,17 @@
     return $m;
 }
 
-CL: for my $class ( grep { m/::$/ } keys %SWISH::API:: )
+# Fix for Debian Bug #422609
+@moduleslist = ( 
+  "MetaName::",
+  "Search::",
+  "PropertyName::",
+  "Results::",
+  "FuzzyWord::",
+  "Result::",
+);
+
+CL: for my $class ( @moduleslist )
 {
     local *c = $SWISH::API::{$class};
     METH: foreach my $meth ( keys %c ) {
Commit	Line	Data
af66a6b2 JR	1	--- swish-e-2.4.7.orig/perl/API.pm
	2	+++ swish-e-2.4.7/perl/API.pm
	3	@@ -2,7 +2,7 @@
	4
	5	# $Id: API.pm 2499 2009-10-04 03:34:07Z karpet $
	6
	7	-use vars qw/ @ISA $VERSION /;
	8	+use vars qw/ @ISA $VERSION/;
	9
	10	$VERSION = '0.04_01';
	11
	12	@@ -31,7 +31,17 @@
	13	return $m;
	14	}
	15
	16	-CL: for my $class ( grep { m/::$/ } keys %SWISH::API:: )
	17	+# Fix for Debian Bug #422609
	18	+@moduleslist = (
	19	+ "MetaName::",
	20	+ "Search::",
	21	+ "PropertyName::",
	22	+ "Results::",
	23	+ "FuzzyWord::",
	24	+ "Result::",
	25	+);
	26	+
	27	+CL: for my $class ( @moduleslist )
	28	{
	29	local *c = $SWISH::API::{$class};
	30	METH: foreach my $meth ( keys %c ) {