Removed dynamic loading of FileHandle

This commit is contained in:
Nick Hibma 1998-12-16 09:09:09 +00:00
parent 5328c7eb7e
commit e6799271cd
Notes: svn2git 2020-12-20 02:59:44 +00:00
svn path=/head/; revision=41861

View file

@ -42,8 +42,6 @@
# a subtopic is a topic that will connected under the subtree of
# topic.
use FileHandle;
# Declaration of constants
#
$SOD = 'D'; # Start of description character
@ -75,12 +73,12 @@ foreach $filename ( @files ) {
$file = STDIN;
} else {
die "Could not open file $filename, $!"
unless $file = new FileHandle $filename;
unless open FILE, $filename;
}
# Process one file and add it to the hash
#
&add_file($file);
&add_file(FILE);
}
# Print the results of our processing