From 79072805bf63abe5b5978b5928ab00d360ea3e7f Mon Sep 17 00:00:00 2001
From: Larry Wall <lwall@netlabs.com>
Date: Thu, 7 Oct 1993 23:00:00 +0000
Subject: perl 5.0 alpha 2

[editor's note: from history.perl.org.  The sparc executables
originally included in the distribution are not in this commit.]
---
 do/execfree | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 do/execfree

(limited to 'do/execfree')

diff --git a/do/execfree b/do/execfree
new file mode 100644
index 0000000000..3f5bd394e1
--- /dev/null
+++ b/do/execfree
@@ -0,0 +1,13 @@
+void
+do_execfree()
+{
+    if (Argv) {
+	Safefree(Argv);
+	Argv = Null(char **);
+    }
+    if (Cmd) {
+	Safefree(Cmd);
+	Cmd = Nullch;
+    }
+}
+
-- 
cgit v1.2.1