From 19f9940dc968afae01b54377ee23ec59069c9646 Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Tue, 27 Jan 2009 23:25:11 +0000
Subject:

---
 scripts/modules/file.pm | 28 ----------------------------
 1 file changed, 28 deletions(-)
 delete mode 100644 scripts/modules/file.pm

(limited to 'scripts/modules')

diff --git a/scripts/modules/file.pm b/scripts/modules/file.pm
deleted file mode 100644
index b11e2b3..0000000
--- a/scripts/modules/file.pm
+++ /dev/null
@@ -1,28 +0,0 @@
-sub dopen
-{
- my $shift = shift;
- opendir DIR, $shift or die "$shift: $!\n";
- my @dir = readdir(DIR);
- closedir DIR;
- return @dir;
-}
-
-sub fopen
-{
- my $shift = shift;
- open FILE, $shift or die "$shift: $!\n";
- my @file = <FILE>; 
- close FILE;
- return @file;
-}
-
-sub fwrite
-{
- my $shift = shift;
- my @file = @_;
- open FILE, ">$shift" or die "$shift: $!\n";
- print FILE @file;
- close FILE;
-}
-
-1;
-- 
cgit v1.2.3