perl 5.0 alpha 9perl-5a9

[editor's note: the sparc executables have not been included,
and emacs backup files have been removed]

1 files changed, 0 insertions, 14 deletions

diff --git a/debstack b/debstack
deleted file mode 100644
index f0af5eaa9f..0000000000
--- a/debstack
+++ /dev/null
@@ -1,14 +0,0 @@
-    if (debug & 4) {
-/*	fprintf(stderr, "%8lx %8lx %8ld %8ld %8ld\n",
-	    stack, stack_base, *markstack_ptr, stack_sp-stack_base, stack_max-stack_base);
-	fprintf(stderr, "%8lx %8lx %8ld %l8d %8ld\n",
-	    curstack, stack->av_array, curstack, stack->av_fill, stack->av_max);
-*/
-	fprintf(stderr, "STACK");
-	for (i = 0; i <= 30; i++) {
-	    if (stack->av_array[i] || stack->av_array[i+1] || stack->av_array[i+2])
-		fprintf(stderr, "\t%s%s", SvPEEK(stack->av_array[i]),
-		    stack_sp == &stack->av_array[i] ? " *" : "");
-	}
-	fprintf(stderr, "\n");
-    }