From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 22 Sep 2008 08:30:40 +0000 (+0000)
Subject: Avoid uninitialized warnings from XSLoader
X-Git-Tag: accepted/trunk/20130322.191538~12767
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=f5bb2f49891625105d14945994319300062baeff;p=platform%2Fupstream%2Fperl.git

Avoid uninitialized warnings from XSLoader

p4raw-id: //depot/perl@34392
---

diff --git a/ext/DynaLoader/XSLoader_pm.PL b/ext/DynaLoader/XSLoader_pm.PL
index 712ac0e..036acfe 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 $@;
     }