From a76739e6d49eb52ea8eb265b05f138a4bde35ccc Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 21 Jan 2005 15:51:54 +0000
Subject: Fix spurious warnings emitted by XSLoader via Data::Dumper

p4raw-id: //depot/perl@23851
---
 ext/Data/Dumper/Dumper.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'ext/Data')

diff --git a/ext/Data/Dumper/Dumper.pm b/ext/Data/Dumper/Dumper.pm
index 3f2d8c9181..1639189b3d 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;
-- 
cgit v1.2.1