Changeset 1388

Timestamp:

2000-08-10T12:25:26+12:00 (24 years ago)

Author:

sjboddie

Message:

fixed a bit of a bug (more of a typo really) in the recent changes made to
doc.pm::set_OID

File:

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

trunk/gsdl/perllib/doc.pm

@@ -256 +256 @@
         
         $filename = &util::get_tmp_filename();
-        if (!open (OUTFILE, ">$tmp_filename")) {
-        print STDERR "doc::set_OID could not write to $tmp_filename\n";
+        if (!open (OUTFILE, ">$filename")) {
+        print STDERR "doc::set_OID could not write to $filename\n";
         } else {
         $self->output_section('OUTFILE', $self->get_top_section(), 1);
@@ -264 +264 @@
         
         $OID = $self->_calc_OID ($filename);
-        &util::rm ($tmp_filename);
+        &util::rm ($filename);
     }
     }