diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-01-28 15:28:02 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-01-28 15:28:02 +0000 |
| commit | bda6a610ca3121bb57c15862a4ffb75463043b06 (patch) | |
| tree | 6fb796ba21f82d39e0e6bf04665cf61afb4d4900 /ext/Opcode | |
| parent | a62d3a1b93ee0907eb56a77cae3c306f3bc68d59 (diff) | |
| download | perl-bda6a610ca3121bb57c15862a4ffb75463043b06.tar.gz | |
In Safe, load Carp::Heavy only if it exists (to remain
compatible with older perls)
p4raw-id: //depot/perl@33093
Diffstat (limited to 'ext/Opcode')
| -rw-r--r-- | ext/Opcode/Safe.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ext/Opcode/Safe.pm b/ext/Opcode/Safe.pm index 68c60a6901..5ec376bf64 100644 --- a/ext/Opcode/Safe.pm +++ b/ext/Opcode/Safe.pm @@ -26,7 +26,9 @@ sub lexless_anon_sub { } use Carp; -use Carp::Heavy; +BEGIN { eval q{ + use Carp::Heavy; +} } use Opcode 1.01, qw( opset opset_to_ops opmask_add |