From 2017a03ad6b83a69b576d41c5e01dca28cbc5cba Mon Sep 17 00:00:00 2001
From: "Erik L. Vonderscheer" <evonder@gmail.com>
Date: Mon, 27 Apr 2009 20:21:57 +0000
Subject: [PATCH] remove test perl file

---
 test.pl |   26 --------------------------
 1 file changed, 26 deletions(-)
 delete mode 100644 test.pl

diff --git a/test.pl b/test.pl
deleted file mode 100644
index e58b765..0000000
--- a/test.pl
+++ /dev/null
@@ -1,26 +0,0 @@
-$req = Win32::GetCwd();
-opendir(DIR ,"$req") or die "cannot open $req";
-$outfile = "list.txt";
-open OUT, ">$outfile" or die "Cannot open $outfile";
- 
-while (defined($doc = readdir(DIR)))
-{        
-  if($doc eq "\." || $doc eq "\..")
- {
-                #do nothing;
- }
-  else
-  {
-    if ($doc =~/\.JPG/)
-    {
-      print OUT "$doc,$ARGV[0],$ARGV[1]\n";
-     
-    }
-    else
-   {    
-          
-    #do nothing;
- 
-   }
- }
-} 
\ No newline at end of file
-- 
1.7.9.5