From bda6a610ca3121bb57c15862a4ffb75463043b06 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 28 Jan 2008 15:28:02 +0000
Subject: [PATCH] In Safe, load Carp::Heavy only if it exists (to remain
 compatible with older perls)

p4raw-id: //depot/perl@33093
---
 ext/Opcode/Safe.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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