diff options
| author | Tye McQueen <tye@metronet.com> | 1998-01-03 18:30:57 -0600 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-01-04 17:55:19 +0000 |
| commit | 22fae026e9f4859841088a1c5609be12b0b1d4f3 (patch) | |
| tree | 886f66b343fc6b88a3dfb291906a4993faa9db03 /lib/dumpvar.pl | |
| parent | 2d7a92375815264badaef23c612657cbd4799f31 (diff) | |
| download | perl-22fae026e9f4859841088a1c5609be12b0b1d4f3.tar.gz | |
[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
Diffstat (limited to 'lib/dumpvar.pl')
| -rw-r--r-- | lib/dumpvar.pl | 3 |
1 files changed, 2 insertions, 1 deletions
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 ) { |