|
|
Author: coke
Date: Wed Jan 16 19:43:19 2008
New Revision: 24934
Modified:
trunk/runtime/parrot/library/Data/Dumper/Base.pir
Log:
[stdlib]
RT #46933; make Data::Dumper treat undef more like perl5 does.
Modified: trunk/runtime/parrot/library/Data/Dumper/Base.pir
==============================================================================
--- trunk/runtime/parrot/library/Data/Dumper/Base.pir (original)
+++ trunk/runtime/parrot/library/Data/Dumper/Base.pir Wed Jan 16 19:43:19 2008
@@ -188,6 +188,10 @@
.local string func
.local string name
+ # Don't cache undef...
+ $I0 = defined _dump
+ unless $I0 goto NOT_IN_CACHE
+
(type, name) = self."cache"( paramName, _dump )
if type == -1 goto NOT_IN_CACHE
|
|