Changeset 1679 for trunk/gsdl/perllib/doc.pm

Timestamp:

2000-11-20T14:03:26+13:00 (23 years ago)

Author:

sjboddie

Message:

Re-Added recent changes that were lost when the CVS repository was moved.
Mostly stuff to do with the collector and building code.

File:

• trunk/gsdl/perllib/doc.pm (modified) (2 diffs)

trunk/gsdl/perllib/doc.pm

@@ -220 +220 @@
                        $ENV{'GSDLOS'},"hashfile$osexe");
     my $result = "NULL";
-
+    
     if (-e "$hashfile_exe") {
-    $result = `$hashfile_exe \"$filename\"`;
+#   $result = `\"$hashfile_exe\" \"$filename\"`;
+    $result = `hashfile$osexe \"$filename\"`;
     ($result) = $result =~ /:\s*([0-9a-f]+)/i;
 
@@ -252 +253 @@
 
     } else {
-        
-        print STDERR "doc::set_OID source filename undefined/non-existant (continuing)\n";
+
+        # this warning causes more confusion than it's worth I think
+        # -- sorry Gordon.
+#       print STDERR "doc::set_OID source filename undefined/non-existant (continuing)\n";
         
         $filename = &util::get_tmp_filename();