This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
This seems to be needed to get COW working on Win32
authorNicholas Clark <nick@ccl4.org>
Thu, 15 Jul 2004 09:02:36 +0000 (09:02 +0000)
committerNicholas Clark <nick@ccl4.org>
Thu, 15 Jul 2004 09:02:36 +0000 (09:02 +0000)
p4raw-id: //depot/perl@23111

win32/win32.c

index 3188805..bead78a 100644 (file)
@@ -4807,13 +4807,15 @@ XS(w32_GetFullPathName)
     SV *fullpath;
     char *filepart;
     DWORD len;
+    STRLEN filename_len;
+    char *filename_p;
 
     if (items != 1)
        Perl_croak(aTHX_ "usage: Win32::GetFullPathName($filename)");
 
     filename = ST(0);
-    fullpath = sv_mortalcopy(filename);
-    SvUPGRADE(fullpath, SVt_PV);
+    filename_p = SvPV(filename, filename_len);
+    fullpath = sv_2mortal(newSVpvn(filename_p, filename_len));
     if (!SvPVX(fullpath) || !SvLEN(fullpath))
         XSRETURN_UNDEF;