[Koha-patches] [PATCH] bugfix move and rename test.pl

[Colin Campbell]

Script test.pl was added to the top level directory
Due to the name this gets run in a make test and end in error
I suspect it was comitted in error
moved and renamed so it dosent get in the way
---
 misc/split_test.pl |   30 ++++++++++++++++++++++++++++++
 test.pl            |   30 ------------------------------
 2 files changed, 30 insertions(+), 30 deletions(-)
 create mode 100644 misc/split_test.pl
 delete mode 100644 test.pl

diff --git a/misc/split_test.pl b/misc/split_test.pl
new file mode 100644
index 0000000..e4bab7b
--- /dev/null
+++ b/misc/split_test.pl
@@ -0,0 +1,30 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+my $string = $ARGV[0];
+
+# Getting the marcfields as an array
+    my @marcfieldsarray = split('\|', $string);
+
+    # Separating the marcfields from the the user-supplied headers
+    my @marcfields;
+    foreach (@marcfieldsarray) {
+        my @result = split('=', $_);
+	if (scalar(@result) == 2) {
+	   push @marcfields, { header => $result[0], field => $result[1] }; 
+	} else {
+	   push @marcfields, { field => $result[0] }
+	}
+    }
+
+use Data::Dumper;
+print Dumper(@marcfields);
+
+
+foreach (@marcfields) {
+    print $_->{field};
+}
+
+
diff --git a/test.pl b/test.pl
deleted file mode 100644
index e4bab7b..0000000
--- a/test.pl
+++ /dev/null
@@ -1,30 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-my $string = $ARGV[0];
-
-# Getting the marcfields as an array
-    my @marcfieldsarray = split('\|', $string);
-
-    # Separating the marcfields from the the user-supplied headers
-    my @marcfields;
-    foreach (@marcfieldsarray) {
-        my @result = split('=', $_);
-	if (scalar(@result) == 2) {
-	   push @marcfields, { header => $result[0], field => $result[1] }; 
-	} else {
-	   push @marcfields, { field => $result[0] }
-	}
-    }
-
-use Data::Dumper;
-print Dumper(@marcfields);
-
-
-foreach (@marcfields) {
-    print $_->{field};
-}
-
-
-- 
1.6.6