From: Jan Dubois <jand@activestate.com>
Date: Sun, 10 Dec 2006 11:47:58 +0000 (-0800)
Subject: re: [PATCH] Move Win32::* functions from win32/win32.c to ext/Win32/Win32.xs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=85472d4f108922bcd3b6b19dde4e929767274c91;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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);
 }