From 043ae7481cd3d05b453e0830b34573b7eef2aade Mon Sep 17 00:00:00 2001 From: Nicolas R Date: Wed, 11 Mar 2020 15:40:01 -0600 Subject: Add strict and warnings to some .PL files use a convoluted incantation to be able to set 'use strict; use warnings' only for Perl > 5.6 --- ext/DynaLoader/DynaLoader_pm.PL | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'ext/DynaLoader/DynaLoader_pm.PL') diff --git a/ext/DynaLoader/DynaLoader_pm.PL b/ext/DynaLoader/DynaLoader_pm.PL index b964c71cd3..5c14cccc8d 100644 --- a/ext/DynaLoader/DynaLoader_pm.PL +++ b/ext/DynaLoader/DynaLoader_pm.PL @@ -1,5 +1,8 @@ use Config; +use strict; +use warnings; + sub to_string { my ($value) = @_; $value =~ s/\\/\\\\/g; @@ -85,7 +88,7 @@ package DynaLoader; # Tim.Bunce@ig.co.uk, August 1994 BEGIN { - $VERSION = '1.46'; + $VERSION = '1.47'; } EOT @@ -127,6 +130,8 @@ else { EOT } +my @dl_library_path; + print OUT expand_os_specific(<<'EOT'); <<$^O-eq-VMS>> -- cgit v1.2.1