Changeset 9409 for trunk/gsdl

Timestamp:

2005-03-14T11:20:22+13:00 (19 years ago)

Author:

jrm21

Message:

use unlink() instead of rm

File:

• trunk/gsdl/perllib/Kea.pm (modified) (3 diffs)

trunk/gsdl/perllib/Kea.pm

@@ -14 +14 @@
 # appropriate format.
 
+# returns a string containing comma-separated keyphrases
 sub extract_KeyPhrases {
 
@@ -101 +102 @@
     # Read the resulting doc.key, which contains keyphrases:
 
-    open(IN, "<$gsdlhome/tmp/doc.key") or return @emptykeylist;
+    open(IN, "<$gsdlhome/tmp/doc.key") or return "";
                                           #this means doc.key does not exist
                                           #either because an option was wrongly specified
@@ -114 +115 @@
 
     # Delete doc.key so that in future it will not be opened and read.
-    # Otherwise KEA sees it as athor keyphrases!
+    # Otherwise KEA sees it as more keyphrases!
 
-    `rm $gsdlhome/tmp/doc.key`;
+    unlink("$gsdlhome/tmp/doc.key");
     
     return $keylist;