swish-e (2.4.7-3) perl/API.pm

Summary

 perl/API.pm |   14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

    
download this patch

Patch contents

--- swish-e-2.4.7.orig/perl/API.pm
+++ swish-e-2.4.7/perl/API.pm
@@ -2,7 +2,7 @@
 
 # $Id: API.pm 1806 2006-06-21 19:01:20Z karman $
 
-use vars qw/ @ISA $VERSION /;
+use vars qw/ @ISA $VERSION/;
 $VERSION = '0.04';
 
 # prefer XSLoader over DynaLoader
@@ -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 ) {