[Rt-commit] r3703 - in Module-Refresh: . lib/Module

[glasser at bestpractical.com]

Author: glasser
Date: Sun Aug 21 13:47:07 2005
New Revision: 3703

Modified:
   Module-Refresh/Changes
   Module-Refresh/lib/Module/Refresh.pm
Log:
Workaround perl <5.8.7 $^P/eval/caller bug.  This will be 0.07 once it definitely works.

Modified: Module-Refresh/Changes
==============================================================================
--- Module-Refresh/Changes	(original)
+++ Module-Refresh/Changes	Sun Aug 21 13:47:07 2005
@@ -1,3 +1,7 @@
+0.07 Sun Aug 21 13:25:20 EDT 2005
+
+  * Put in a work-around for a perl bug before 5.8.7.
+
 0.06 Fri May 20 22:11:11 EDT 2005
 
   * Trade overrefreshing for underrefreshing in some cases; test and document

Modified: Module-Refresh/lib/Module/Refresh.pm
==============================================================================
--- Module-Refresh/lib/Module/Refresh.pm	(original)
+++ Module-Refresh/lib/Module/Refresh.pm	Sun Aug 21 13:47:07 2005
@@ -3,10 +3,17 @@
 use strict;
 use vars qw( $VERSION %CACHE );
 
-$VERSION = "0.06";
+$VERSION = "0.07";
 
-# Turn on the debugger's symbol source tracing
-BEGIN { $^P |= 0x10 };
+BEGIN { 
+    # Turn on the debugger's symbol source tracing
+    $^P |= 0x10;
+
+    # Work around bug in pre-5.8.7 perl where turning on $^P
+    # causes caller() to be confused about eval {}'s in the stack.
+    # (See http://rt.perl.org/rt3/Ticket/Display.html?id=35059 for more info.)
+    eval 'sub DB::sub' if $] < 5.008007;
+}
 
 =head1 NAME