This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
re: [PATCH] Move Win32::* functions from win32/win32.c to ext/Win32/Win32.xs
authorJan Dubois <jand@activestate.com>
Sun, 10 Dec 2006 11:47:58 +0000 (03:47 -0800)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 11 Dec 2006 13:23:55 +0000 (13:23 +0000)
Message-ID: <9moon29qtn5c23t9fer229ealsu06bkf11@4ax.com>

p4raw-id: //depot/perl@29511

ext/Storable/Storable.xs
ext/Win32/Win32.pm
win32/win32.c

index cc84a66..17a7b5c 100644 (file)
@@ -2627,6 +2627,7 @@ static int store_code(pTHX_ stcxt_t *cxt, CV *cv)
         */
        /* Ownership of both SVs is passed to load_module, which frees them. */
        load_module(PERL_LOADMOD_NOIMPORT, newSVpvn("B::Deparse",10), newSVnv(0.61));
+        SPAGAIN;
 
        ENTER;
        SAVETMPS;
index e35efc9..c6419c5 100644 (file)
@@ -8,7 +8,7 @@ BEGIN {
     require DynaLoader;
 
     @ISA = qw|Exporter DynaLoader|;
-    $VERSION = '0.2601_01';
+    $VERSION = '0.27';
 
     @EXPORT = qw(
        NULL
index 16bf51e..620a1cf 100644 (file)
@@ -4272,7 +4272,8 @@ static void
 forward(pTHX_ const char *function)
 {
     dXSARGS;
-    Perl_load_module(aTHX_ PERL_LOADMOD_NOIMPORT, newSVpvn("Win32",5), NULL);
+    Perl_load_module(aTHX_ PERL_LOADMOD_NOIMPORT, newSVpvn("Win32",5), newSVnv(0.27));
+    SPAGAIN;
     PUSHMARK(SP-items);
     call_pv(function, GIMME_V);
 }