[BACK]Return to loncfile.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / publisher

Diff for /loncom/publisher/loncfile.pm between versions 1.40 and 1.41

version 1.40, 2003/08/26 19:17:02 version 1.41, 2003/08/28 20:28:33
Line 758  sub Rename2 { Line 758  sub Rename2 {
       my $tmp2=$nRN.'.meta';        my $tmp2=$nRN.'.meta';
       if(-e $tmp1){        if(-e $tmp1){
   unless(rename($tmp1,$tmp2)){ }    unless(rename($tmp1,$tmp2)){ }
       }else if(-e $tmp2){        } elsif(-e $tmp2){
   unlink $tmp2;    unlink $tmp2;
       }        }
       $tmp1=$oRN.'.save';        $tmp1=$oRN.'.save';
       $tmp2=$nRN.'.save';        $tmp2=$nRN.'.save';
       if(-e $tmp1){        if(-e $tmp1){
   unless(rename($tmp1,$tmp2)){ }    unless(rename($tmp1,$tmp2)){ }
       }else if(-e $tmp2){        } elsif(-e $tmp2){
   unlink $tmp2;    unlink $tmp2;
       }        }
       $tmp1=$oRN.'.log';        $tmp1=$oRN.'.log';
       $tmp2=$nRN.'.log';        $tmp2=$nRN.'.log';
       if(-e $tmp1){        if(-e $tmp1){
   unless(rename($tmp1,$tmp2)){ }    unless(rename($tmp1,$tmp2)){ }
       }else if(-e $tmp2){        } elsif(-e $tmp2){
   unlink $tmp2;    unlink $tmp2;
       }        }
       $tmp1=$oRN.'.bak';        $tmp1=$oRN.'.bak';
       $tmp2=$nRN.'.bak';        $tmp2=$nRN.'.bak';
       if(-e $tmp1){        if(-e $tmp1){
   unless(rename($tmp1,$tmp2)){ }    unless(rename($tmp1,$tmp2)){ }
       }else if(-e $tmp2){        } elsif(-e $tmp2){
   unlink $tmp2;    unlink $tmp2;
       }        }
   } else {    } else {
Removed from v.1.40  
changed lines
  Added in v.1.41

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>