From 43c9fafc3bc596eb73042d9ecc602496bf723f04 Mon Sep 17 00:00:00 2001
From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Mon, 24 Jun 1996 03:07:53 +0000
Subject: perl 5.003: ext/NDBM_File/NDBM_File.pm

C<use strict> with Perl 5.002 or later to avoid confusing warnings
if installed in a library also used by Perl 5.001m.  (It still won't
work with 5,001m, but the error message now states this more clearly.)
---
 ext/NDBM_File/NDBM_File.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'ext/NDBM_File')

diff --git a/ext/NDBM_File/NDBM_File.pm b/ext/NDBM_File/NDBM_File.pm
index 601a3c2a0e..6072e651fc 100644
--- a/ext/NDBM_File/NDBM_File.pm
+++ b/ext/NDBM_File/NDBM_File.pm
@@ -1,6 +1,10 @@
 package NDBM_File;
 
-use strict;
+BEGIN {
+    if ($] >= 5.002) {
+	use strict;
+    }
+}
 use vars qw($VERSION @ISA); 
 
 require Tie::Hash;
-- 
cgit v1.2.1