From: gml4410@ggr.co.uk <gml4410@ggr.co.uk>
Date: Thu, 2 Nov 2006 09:30:34 +0000 (-0800)
Subject: Wrap the $VERSION initialization of DynaLoader in a BEGIN block
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=816b255b3713d16e7c9ee4c3736d7096b851b609;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;