diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-01-21 15:51:54 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-01-21 15:51:54 +0000 |
| commit | a76739e6d49eb52ea8eb265b05f138a4bde35ccc (patch) | |
| tree | 1855816f807ca5a9704d16b6c0f07d4727e8b1a2 /ext/Data | |
| parent | 86704b5ff60208951e78bd32bfb4f73d05eec98a (diff) | |
| download | perl-a76739e6d49eb52ea8eb265b05f138a4bde35ccc.tar.gz | |
Fix spurious warnings emitted by XSLoader via Data::Dumper
p4raw-id: //depot/perl@23851
Diffstat (limited to 'ext/Data')
| -rw-r--r-- | ext/Data/Dumper/Dumper.pm | 4 |
1 files changed, 2 insertions, 2 deletions
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; |