Change 33093 by [EMAIL PROTECTED] on 2008/01/28 15:28:02
In Safe, load Carp::Heavy only if it exists (to remain
compatible with older perls)
Affected files ...
... //depot/perl/ext/Opcode/Safe.pm#29 edit
Differences ...
==== //depot/perl/ext/Opcode/Safe.pm#29 (text) ====
Index: perl/ext/Opcode/Safe.pm
--- perl/ext/Opcode/Safe.pm#28~32597~ 2007-12-08 14:58:01.000000000 -0800
+++ perl/ext/Opcode/Safe.pm 2008-01-28 07:28:02.000000000 -0800
@@ -26,7 +26,9 @@
}
use Carp;
-use Carp::Heavy;
+BEGIN { eval q{
+ use Carp::Heavy;
+} }
use Opcode 1.01, qw(
opset opset_to_ops opmask_add
End of Patch.
