Wrap the $VERSION initialization of DynaLoader in a BEGIN block

Subject: [perl #40651] (Obscure) Bug in Dynaloader
From: gml4410@ggr.co.uk (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.5.HEAD-4979-1162488633-1267.40651-75-0@perl.org>

p4raw-id: //depot/perl@29198

diff --git a/ext/DynaLoader/DynaLoader_pm.PL b/ext/DynaLoader/DynaLoader_pm.PL
index 426d3a5..f4c3c8a 100644 (file)
--- a/ext/DynaLoader/DynaLoader_pm.PL
+++ b/ext/DynaLoader/DynaLoader_pm.PL
@@ -84,7 +84,7 @@ package DynaLoader;
 #
 # Tim.Bunce@ig.co.uk, August 1994
 
-$VERSION = '1.07';
+BEGIN { $VERSION = '1.07'; }
 
 require AutoLoader;
 *AUTOLOAD = \&AutoLoader::AUTOLOAD;