Changeset 2333

Timestamp:

2001-04-23T14:03:06+12:00 (23 years ago)

Author:

kjm18

Message:

closed all filehandles that had remained open, to fix the bug that was
occuring when two phind classifiers were run on the same collection.

File:

• trunk/gsdl/perllib/classify/phind.pm (modified) (4 diffs)

trunk/gsdl/perllib/classify/phind.pm

@@ -335 +335 @@
     my $self = shift (@_);
 
+    close $self->{'txthandle'};
     my $verbosity = $self->{'verbosity'};
     my $out = $self->{'outhandle'};
@@ -672 +673 @@
 
     }
-    }
+    closedir LANGDIR;
+    }
+    closedir STOPDIR;
 
     # Read thesaurus information
@@ -720 +723 @@
     }
     
+    close TXT;
+
     # Calculate the "best" form of each word
     my (%bestform, %totalfreq, %bestfreq);
@@ -882 +887 @@
     }
     
+    close TXT;
     print NUM "$symbol{lc($colend)}\n";
     close NUM;