diff options
author | Nicolas R <atoomic@cpan.org> | 2020-03-11 15:40:01 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2020-03-13 10:58:05 -0600 |
commit | 043ae7481cd3d05b453e0830b34573b7eef2aade (patch) | |
tree | 0b2f82cf5bd36b97343c2195a116e02a493b2c00 /ext/DynaLoader/DynaLoader_pm.PL | |
parent | ce957b554e06659e23c22d868e747b60f010883e (diff) | |
download | perl-043ae7481cd3d05b453e0830b34573b7eef2aade.tar.gz |
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
Diffstat (limited to 'ext/DynaLoader/DynaLoader_pm.PL')
-rw-r--r-- | ext/DynaLoader/DynaLoader_pm.PL | 7 |
1 files changed, 6 insertions, 1 deletions
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>> |