From f5bb2f49891625105d14945994319300062baeff Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 22 Sep 2008 08:30:40 +0000
Subject: [PATCH] Avoid uninitialized warnings from XSLoader

p4raw-id: //depot/perl@34392
---
 ext/DynaLoader/XSLoader_pm.PL | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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 $@;
     }
-- 
2.7.4