From: Steve Hay <SteveHay@planit.com>
Date: Fri, 8 Jun 2007 09:07:46 +0000 (+0000)
Subject: Change 31347 should also have removed win32_free_argvw()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=67696c502b064f1913c631a0eaa9885c8f7e5be8;p=p5sagit%2Fp5-mst-13.2.git

Change 31347 should also have removed win32_free_argvw()
because it now isn't used anywhere.

p4raw-id: //depot/perl@31356
---

diff --git a/win32/win32.c b/win32/win32.c
index a1c0d46..e12ac67 100644
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -4968,13 +4968,3 @@ Perl_sys_intern_dup(pTHX_ struct interp_intern *src, struct interp_intern *dst)
 }
 #  endif /* USE_ITHREADS */
 #endif /* HAVE_INTERP_INTERN */
-
-static void
-win32_free_argvw(pTHX_ void *ptr)
-{
-    char** argv = (char**)ptr;
-    while(*argv) {
-	Safefree(*argv);
-	*argv++ = Nullch;
-    }
-}
diff --git a/win32/wince.c b/win32/wince.c
index 7acea0b..2926803 100644
--- a/win32/wince.c
+++ b/win32/wince.c
@@ -2834,16 +2834,6 @@ Perl_sys_intern_dup(pTHX_ struct interp_intern *src, struct interp_intern *dst)
 #  endif /* USE_ITHREADS */
 #endif /* HAVE_INTERP_INTERN */
 
-static void
-win32_free_argvw(pTHX_ void *ptr)
-{
-    char** argv = (char**)ptr;
-    while(*argv) {
-	Safefree(*argv);
-	*argv++ = Nullch;
-    }
-}
-
 // added to remove undefied symbol error in CodeWarrior compilation
 int
 Perl_Ireentrant_buffer_ptr(aTHX)