Make sure to create &version::new alias with all Perls

Perl · Mar 6, 2013 · f6ba3df · f6ba3df
1 parent 3d4992d
commit f6ba3df
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/version.pm b/lib/version.pm
@@ -126,12 +126,12 @@ $LAX =
 	*version::declare = \&version::vpp::declare;
 	*version::_VERSION = \&version::vpp::_VERSION;
 	*version::vcmp = \&version::vpp::vcmp;
+	*version::new = \&version::vpp::new;
 	if ($] >= 5.009000) {
 	    no strict 'refs';
 	    *version::stringify = \&version::vpp::stringify;
 	    *{'version::(""'} = \&version::vpp::stringify;
 	    *{'version::(<=>'} = \&version::vpp::vcmp;
-	    *version::new = \&version::vpp::new;
 	    *version::parse = \&version::vpp::parse;
 	}
     }
@@ -142,12 +142,12 @@ $LAX =
 	*version::qv = \&version::vxs::qv;
 	*version::_VERSION = \&version::vxs::_VERSION;
 	*version::vcmp = \&version::vxs::VCMP;
+	*version::new = \&version::vxs::new;
 	if ($] >= 5.009000) {
 	    no strict 'refs';
 	    *version::stringify = \&version::vxs::stringify;
 	    *{'version::(""'} = \&version::vxs::stringify;
 	    *{'version::(<=>'} = \&version::vxs::VCMP;
-	    *version::new = \&version::vxs::new;
 	    *version::parse = \&version::vxs::parse;
 	}