From: Dirk Koopman <djk@tobit.co.uk>
Date: Mon, 18 Jun 2007 14:37:54 +0000 (+0100)
Subject: fix lack of warnins.pm in 5.005004
X-Git-Tag: 1.55~160^2~1
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=f45892a3eac7dcc74e47c1ffb919f9b4915f92cd;p=spider.git

fix lack of warnins.pm in 5.005004
---

diff --git a/perl/Version.pm b/perl/Version.pm
index 4a384e18..470fa785 100644
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -10,6 +10,6 @@ package main;
 use vars qw($version $build);
 
 $version = '1.54';
-$build = '46';
+$build = '47';
 
 1;
diff --git a/perl/cluster.pl b/perl/cluster.pl
index d7dd9a0c..deb17c75 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -347,7 +347,7 @@ if (DXSql::init($dsn)) {
 
 # try to load Encode
 {
-	no warnings;
+	local $^W = 0;
 	my $w = $SIG{__DIE__};
 	$SIG{__DIE__} = 'IGNORE';
 	eval { require Encode; };