perl 5.000perl-5.000

[editor's note: this commit combines approximate 4 months of furious
releases of Andy Dougherty and Larry Wall - see pod/perlhist.pod for
details.  Andy notes that;
 
Alas neither my "Irwin AccuTrack" nor my DC 600A quarter-inch cartridge 
backup tapes from that era seem to be readable anymore.  I guess 13 years 
exceeds the shelf life for that backup technology :-(.
]

1 files changed, 0 insertions, 21 deletions

diff --git a/os2/glob.c b/os2/glob.c
deleted file mode 100644
index 75b00848be..0000000000
--- a/os2/glob.c
+++ /dev/null
@@ -1,21 +0,0 @@
-/*
- * Globbing for OS/2.  Relies on the expansion done by the library
- * startup code.
- */
-
-#define PERLGLOB
-#include "director.c"
-
-int main(int argc, char **argv)
-{
-  SHORT i;
-  USHORT r;
-  CHAR *f;
-
-  for (i = 1; i < argc; i++)
-  {
-    f = IsFileSystemFAT(argv[i]) ? strlwr(argv[i]) : argv[i];
-    DosWrite(1, f, strlen(f) + 1, &r);
-  }
-  return argc - 1;
-}