From 22fae026e9f4859841088a1c5609be12b0b1d4f3 Mon Sep 17 00:00:00 2001
From: Tye McQueen <tye@metronet.com>
Date: Sat, 3 Jan 1998 18:30:57 -0600
Subject: [win32] Add a tweaked version of: 	Message-Id:
 <199801040630.AA29298@metronet.com> 	Subject: New patch for
 $^E==GetLastError() under Win32

p4raw-id: //depot/win32/perl@392
---
 lib/dumpvar.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib/dumpvar.pl')

diff --git a/lib/dumpvar.pl b/lib/dumpvar.pl
index c32bc2fb5e..cc7da89a62 100644
--- a/lib/dumpvar.pl
+++ b/lib/dumpvar.pl
@@ -22,6 +22,7 @@ $printUndef = 1 unless defined $printUndef;
 $tick = "auto" unless defined $tick;
 $unctrl = 'quote' unless defined $unctrl;
 $subdump = 1;
+$dumpReused = 0 unless defined $dumpReused;
 
 sub main::dumpValue {
   local %address;
@@ -118,7 +119,7 @@ sub unwrap {
     # Check for reused addresses
     if (ref $v) { 
       ($address) = $v =~ /(0x[0-9a-f]+)\)$/ ; 
-      if (defined $address) { 
+      if (!$dumpReused && defined $address) { 
 	($type) = $v =~ /=(.*?)\([^=]+$/ ;
 	$address{$address}++ ;
 	if ( $address{$address} > 1 ) { 
-- 
cgit v1.2.1