In Safe, load Carp::Heavy only if it exists (to remain

compatible with older perls)

p4raw-id: //depot/perl@33093

diff --git a/ext/Opcode/Safe.pm b/ext/Opcode/Safe.pm
index 68c60a6..5ec376b 100644 (file)
--- 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