From f45892a3eac7dcc74e47c1ffb919f9b4915f92cd Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Mon, 18 Jun 2007 15:37:54 +0100 Subject: [PATCH] fix lack of warnins.pm in 5.005004 --- perl/Version.pm | 2 +- perl/cluster.pl | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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; }; -- 2.43.0