From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 28 Jan 2008 15:28:02 +0000 (+0000)
Subject: In Safe, load Carp::Heavy only if it exists (to remain
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bda6a610ca3121bb57c15862a4ffb75463043b06;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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