X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=deb17c752dc172adebbdd80c60e81af3d4e31d88;hb=f45892a3eac7dcc74e47c1ffb919f9b4915f92cd;hp=d7dd9a0c4fb2469fdd95241c70749e3429491fe5;hpb=84f339800c18bbc7c156d72c790d76a84cd657b8;p=spider.git

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; };