fix lack of warnins.pm in 5.005004

diff --git a/perl/Version.pm b/perl/Version.pm
index 4a384e18a6fd945dd11721e90d7e66d3622c4179..470fa7852543d950b17e4cf3ace201c4ea67c368 100644 (file)
--- 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 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; };