This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Avoid uninitialized warnings from XSLoader
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 22 Sep 2008 08:30:40 +0000 (08:30 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 22 Sep 2008 08:30:40 +0000 (08:30 +0000)
p4raw-id: //depot/perl@34392

ext/DynaLoader/XSLoader_pm.PL

index 712ac0e..036acfe 100644 (file)
@@ -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 $@;
     }