diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-09-22 08:30:40 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-09-22 08:30:40 +0000 |
| commit | f5bb2f49891625105d14945994319300062baeff (patch) | |
| tree | d0d035d8e7844f0f5a75037b14dc899b0b9edc3c /ext | |
| parent | 8adca19127aa368387d47a481fcc3fcb911d4017 (diff) | |
| download | perl-f5bb2f49891625105d14945994319300062baeff.tar.gz | |
Avoid uninitialized warnings from XSLoader
p4raw-id: //depot/perl@34392
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/DynaLoader/XSLoader_pm.PL | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/ext/DynaLoader/XSLoader_pm.PL b/ext/DynaLoader/XSLoader_pm.PL index 712ac0eec0..036acfeab4 100644 --- a/ext/DynaLoader/XSLoader_pm.PL +++ b/ext/DynaLoader/XSLoader_pm.PL @@ -15,7 +15,7 @@ print OUT <<'EOT'; package XSLoader; -$VERSION = "0.09"; +$VERSION = "0.09_1"; #use strict; @@ -82,7 +82,6 @@ print OUT <<'EOT'; $bs =~ s/(\.\w+)?(;\d*)?$/\.bs/; # look for .bs 'beside' the library if (-s $bs) { # only read file if it's not empty - print STDERR "BS: $bs ($^O, $dlsrc)\n" if $dl_debug; eval { do $bs; }; warn "$bs: $@\n" if $@; } |