ward/publicscripts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

bug in perl

Browse source
This commit is contained in:
Ward Wouts 2003-02-03 12:58:22 +00:00
parent 64048592e4
commit 91f90b825f
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
mycp/mycp
View file

@ -37,7 +37,7 @@ sub backup($) {
@timestamp = localtime($stat[9]); @timestamp = localtime($stat[9]);
$timestamp[5] += 1900; $timestamp[5] += 1900;
$sfx = "$timestamp[3]$months[$timestamp[4]]$timestamp[5]"; $sfx = "$timestamp[3]$months[$timestamp[4]]$timestamp[5]";
unless ( -d "$dir/OLD" ) { mkdir "$dir/OLD" or die "Couldn't create $dir/OLD: $!\n"; } unless ( -d "$dir/OLD" ) { mkdir "$dir/OLD", 0777 or die "Couldn't create $dir/OLD: $!\n"; }
$backup = "$dir/OLD/$base.$sfx"; $backup = "$dir/OLD/$base.$sfx";
if ( -e $backup && ! &cmp($file, $backup) ) { if ( -e $backup && ! &cmp($file, $backup) ) {