perl.cvs.parrot
[Top] [All Lists]

[svn:parrot] r24934 - trunk/runtime/parrot/library/Data/Dumper

Subject: [svn:parrot] r24934 - trunk/runtime/parrot/library/Data/Dumper
From:
Date: Wed, 16 Jan 2008 19:43:20 -0800 PST
Newsgroups: perl.cvs.parrot

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

<Prev in Thread] Current Thread [Next in Thread>
  • [svn:parrot] r24934 - trunk/runtime/parrot/library/Data/Dumper, coke <=