Remove svn files

1 files changed, 0 insertions, 38 deletions

diff --git a/perl/.svn/text-base/test_fallthrough.svn-base b/perl/.svn/text-base/test_fallthrough.svn-base
deleted file mode 100644
index 50feed8..0000000
--- a/perl/.svn/text-base/test_fallthrough.svn-base
+++ /dev/null
@@ -1,38 +0,0 @@
-#!/usr/bin/perl
-
-use NASTD;
-
-$nasthole = &NASTD::nast_sphincter_new();
-if (!defined($nasthole)) {
-	exit(1);
-}
-
-@options = &NASTD::nast_options_get($nasthole);
-if (!defined(@options)) {
-	print STDERR "Couldn't get options: " .
-		&NASTD::nast_errmsg($nasthole) . "\n";
-	exit(1);
-}
-
-$options[5] = 1;
-if (&NASTD::nast_options_set($nasthole, @options) == -1) {
-	print STDERR "Couldn't set options: " .
-		&NASTD::nast_errmsg($nasthole) . "\n";
-	exit(1);
-}
-
-if (&NASTD::nast_get($nasthole, "asljkda") == -1) {
-	print STDERR "Couldn't perform get: " .
-		&NASTD::nast_errmsg($nasthole) . "\n";
-	exit(1);
-}
-
-@vals = &NASTD::nast_get_result($nasthole);
-$nitems = $#vals + 1;
-print "Number of columns: " . $nitems . "\n";
-for ($i = 0; $i < $nitems; $i++) {
-	$val = shift(@vals);
-	print "Result[$i]: $val\n";
-}
-
-&NASTD::nast_sphincter_close($nasthole);