re: [PATCH] Move Win32::* functions from win32/win32.c to ext/Win32/Win32.xs

Message-ID: <9moon29qtn5c23t9fer229ealsu06bkf11@4ax.com>

p4raw-id: //depot/perl@29511

diff --git a/ext/Storable/Storable.xs b/ext/Storable/Storable.xs
index cc84a66..17a7b5c 100644 (file)
--- a/ext/Storable/Storable.xs
+++ b/ext/Storable/Storable.xs
@@ -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;

diff --git a/ext/Win32/Win32.pm b/ext/Win32/Win32.pm
index e35efc9..c6419c5 100644 (file)
--- a/ext/Win32/Win32.pm
+++ b/ext/Win32/Win32.pm
@@ -8,7 +8,7 @@ BEGIN {
     require DynaLoader;
 
     @ISA = qw|Exporter DynaLoader|;
-    $VERSION = '0.2601_01';
+    $VERSION = '0.27';
 
     @EXPORT = qw(
        NULL

diff --git a/win32/win32.c b/win32/win32.c
index 16bf51e..620a1cf 100644 (file)
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -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);
 }