swish-e (2.4.7-3) direct (non packaging) changes

--- swish-e-2.4.7.orig/man/SWISH-FAQ.1
+++ swish-e-2.4.7/man/SWISH-FAQ.1
@@ -131,7 +131,7 @@
 .IX Title "SWISH-FAQ 1"
 .TH SWISH-FAQ 1 "2009-04-04" "2.4.7" "SWISH-E Documentation"
 .SH "NAME"
-The Swish\-e FAQ \- Answers to Common Questions
+SWISH-FAQ \- The Swish\-e FAQ. Answers to Common Questions
 .SH "OVERVIEW"
 .IX Header "OVERVIEW"
 List of commonly asked and answered questions.  Please review this
--- swish-e-2.4.7.orig/conf/example9.pl
+++ swish-e-2.4.7/conf/example9.pl
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use strict;
 
 # This is a short example that basically does the same
--- swish-e-2.4.7.orig/perl/Makefile.PL
+++ swish-e-2.4.7/perl/Makefile.PL
@@ -211,7 +211,7 @@
 
     my %config;
     $config{VERSION} = backtick("$binary --version");
-    $config{LIBS}    = backtick("$binary --libs");
+    $config{LIBS}    = "-L../src/.libs/ -lxml2 ".backtick("$binary --libs");
     $config{INC}     = backtick("$binary --cflags");
     $config{BINDIR}  = dirname($binary);
 
--- 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 ) {