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

[Rafael Garcia-Suarez]

Change 29511 by [EMAIL PROTECTED] on 2006/12/11 13:23:55

        Subject: re: [PATCH] Move Win32::* functions from win32/win32.c to 
ext/Win32/Win32.xs
        From: Jan Dubois <[EMAIL PROTECTED]>
        Date: Sun, 10 Dec 2006 11:47:58 -0800
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/ext/Storable/Storable.xs#124 edit
... //depot/perl/ext/Win32/Win32.pm#2 edit
... //depot/perl/win32/win32.c#269 edit

Differences ...

==== //depot/perl/ext/Storable/Storable.xs#124 (text) ====
Index: perl/ext/Storable/Storable.xs
--- perl/ext/Storable/Storable.xs#123~29071~    2006-10-21 09:45:38.000000000 
-0700
+++ perl/ext/Storable/Storable.xs       2006-12-11 05:23:55.000000000 -0800
@@ -2627,6 +2627,7 @@
         */
        /* 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;

==== //depot/perl/ext/Win32/Win32.pm#2 (text) ====
Index: perl/ext/Win32/Win32.pm
--- perl/ext/Win32/Win32.pm#1~29483~    2006-12-07 01:12:45.000000000 -0800
+++ perl/ext/Win32/Win32.pm     2006-12-11 05:23:55.000000000 -0800
@@ -8,7 +8,7 @@
     require DynaLoader;
 
     @ISA = qw|Exporter DynaLoader|;
-    $VERSION = '0.2601_01';
+    $VERSION = '0.27';
 
     @EXPORT = qw(
        NULL

==== //depot/perl/win32/win32.c#269 (text) ====
Index: perl/win32/win32.c
--- perl/win32/win32.c#268~29510~       2006-12-11 05:22:11.000000000 -0800
+++ perl/win32/win32.c  2006-12-11 05:23:55.000000000 -0800
@@ -4272,7 +4272,8 @@
 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);
 }
End of Patch.