Changeset 1388

Show
Ignore:
Timestamp:
10.08.2000 12:25:26 (19 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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • trunk/gsdl/perllib/doc.pm

    r1379 r1388  
    256256         
    257257        $filename = &util::get_tmp_filename(); 
    258         if (!open (OUTFILE, ">$tmp_filename")) { 
    259         print STDERR "doc::set_OID could not write to $tmp_filename\n"; 
     258        if (!open (OUTFILE, ">$filename")) { 
     259        print STDERR "doc::set_OID could not write to $filename\n"; 
    260260        } else { 
    261261        $self->output_section('OUTFILE', $self->get_top_section(), 1); 
     
    264264         
    265265        $OID = $self->_calc_OID ($filename); 
    266         &util::rm ($tmp_filename); 
     266        &util::rm ($filename); 
    267267    } 
    268268    }