Data::Dumper: Optimize XPUSH's to EXTEND(), PUSH,...

diff --git a/dist/Data-Dumper/Dumper.pm b/dist/Data-Dumper/Dumper.pm
index 925d9dd..d7d2b6b 100644 (file)
--- a/dist/Data-Dumper/Dumper.pm
+++ b/dist/Data-Dumper/Dumper.pm
@@ -10,7 +10,7 @@
 package Data::Dumper;
 
 BEGIN {
-    $VERSION = '2.136'; # Don't forget to set version and release
+    $VERSION = '2.137'; # Don't forget to set version and release
 }                         # date in POD!
 
 #$| = 1;
@@ -1359,7 +1359,7 @@ modify it under the same terms as Perl itself.
 
 =head1 VERSION
 
-Version 2.136  (October 04 2012)
+Version 2.137  (October 22 2012)
 
 =head1 SEE ALSO
 

diff --git a/dist/Data-Dumper/Dumper.xs b/dist/Data-Dumper/Dumper.xs
index 6ec4dbf..8c9a81d 100644 (file)
--- a/dist/Data-Dumper/Dumper.xs
+++ b/dist/Data-Dumper/Dumper.xs
@@ -1121,10 +1121,11 @@ Data_Dumper_Dumpxs(href, ...)
                SAVETMPS;
                
                PUSHMARK(sp);
-               XPUSHs(href);
-               XPUSHs(sv_2mortal(newSVsv(ST(1))));
+                EXTEND(SP, 3); /* 3 == max of all branches below */
+               PUSHs(href);
+               PUSHs(sv_2mortal(newSVsv(ST(1))));
                if (items >= 3)
-                   XPUSHs(sv_2mortal(newSVsv(ST(2))));
+                   PUSHs(sv_2mortal(newSVsv(ST(2))));
                PUTBACK;
                i = perl_call_method("new", G_SCALAR);
                SPAGAIN;