fix lack of warnins.pm in 5.005004

[spider.git] / perl / cluster.pl

diff --git a/perl/cluster.pl b/perl/cluster.pl
index d7dd9a0c4fb2469fdd95241c70749e3429491fe5..deb17c752dc172adebbdd80c60e81af3d4e31d88 100755 (executable)
--- 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; };