From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 21 Jan 2005 15:51:54 +0000 (+0000)
Subject: Fix spurious warnings emitted by XSLoader via Data::Dumper
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a76739e6d49eb52ea8eb265b05f138a4bde35ccc;p=p5sagit%2Fp5-mst-13.2.git

Fix spurious warnings emitted by XSLoader via Data::Dumper

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

diff --git a/ext/Data/Dumper/Dumper.pm b/ext/Data/Dumper/Dumper.pm
index 3f2d8c9..1639189 100644
--- a/ext/Data/Dumper/Dumper.pm
+++ b/ext/Data/Dumper/Dumper.pm
@@ -29,12 +29,12 @@ BEGIN {
     # toggled on load failure.
     eval {
 	require XSLoader;
-	XSLoader::load( 'Data::Dumper' );
-	1;
     };
     $Useperl = 1 if $@;
 }
 
+XSLoader::load( 'Data::Dumper' ) unless $Useperl;
+
 # module vars and their defaults
 $Indent     = 2         unless defined $Indent;
 $Purity     = 0         unless defined $Purity;