diff options
| author | Jerry D. Hedden <jdhedden@cpan.org> | 2008-01-08 10:01:02 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-01-09 10:54:27 +0000 |
| commit | 192c1e277b50bfcbfdd3717ce2ae7c1a42fa9601 (patch) | |
| tree | 3f970a6b8a3990c88ffdf00716b975ddc426dcee /ext/Data/Dumper/Dumper.pm | |
| parent | 2e8342de65fb9cb7fd716c30bbddc9c0f4311ba0 (diff) | |
| download | perl-192c1e277b50bfcbfdd3717ce2ae7c1a42fa9601.tar.gz | |
Move re::regexp_pattern to universal.c
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510801081201q5c36f055re6165ebfe8876c2e@mail.gmail.com>
p4raw-id: //depot/perl@32911
Diffstat (limited to 'ext/Data/Dumper/Dumper.pm')
| -rw-r--r-- | ext/Data/Dumper/Dumper.pm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/ext/Data/Dumper/Dumper.pm b/ext/Data/Dumper/Dumper.pm index 462884f898..d1a3a0f51b 100644 --- a/ext/Data/Dumper/Dumper.pm +++ b/ext/Data/Dumper/Dumper.pm @@ -9,7 +9,7 @@ package Data::Dumper; -$VERSION = '2.121_15'; +$VERSION = '2.121_16'; #$| = 1; @@ -367,9 +367,7 @@ sub _dump { # regexp_pattern() in list context to get the modifiers separately. # But since this means loading the full debugging engine in process we wont # bother unless its necessary for accuracy. - if ($realpack ne 'Regexp' and $] > 5.009005) { - defined *re::regexp_pattern{CODE} - or do { eval 'use re (regexp_pattern); 1' or die $@ }; + if (($realpack ne 'Regexp') && defined(*re::regexp_pattern{CODE})) { $pat = re::regexp_pattern($val); } else { $pat = "$val"; |