1 files changed, 0 insertions, 45 deletions
diff --git a/atarist/perlglob.c b/atarist/perlglob.c
deleted file mode 100644
index 002639ede2..0000000000
--- a/atarist/perlglob.c
+++ /dev/null
@@ -1,45 +0,0 @@
-/*
- * glob and echo any globbed args
- *
- *  ++jrb  bammi@cadence.com
- */
-
-#include <stdio.h>
-
-#if __STDC__
-# include <compiler.h>
-#else
-# define __PROTO(X) ()
-#endif
-
-char	**glob __PROTO((char *patt, int decend_dir));
-int	contains_wild __PROTO((char *patt));
-void	free_all __PROTO((void));
-
-
-int main(argc, argv)
-int argc;
-char **argv;
-{
-    --argc; ++argv;
-    while(argc--)
-    {
-	char *word = *argv;
-	char **list;
-	int did_some = 0;
-
-	if(contains_wild(word) && (list = glob(word, 0)))
-	{
-	    while(*list)
-	    {
-		fputs(*list, stdout);
-	        if(*++list) putchar(' ');
-	    }
-	    free_all();
-	    did_some = 1;
-	}
-	if(*++argv && did_some) putchar(' ');
-    }
-    putchar('\0');
-    return 0;
-}