From f45892a3eac7dcc74e47c1ffb919f9b4915f92cd Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
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.34.1