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 (file)
--- 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;