bike/dswim
1
0
Fork 0
mirror of https://github.com/fspc/dswim.git synced 2025-02-22 08:33:24 -05:00
Code Issues Projects Releases Wiki Activity

This doesn't permit "" values to be put into the history since ReadLine

Browse Source 
complains about this.  Just checks that arg isn't "".
This commit is contained in:
freesource 2001-10-21 06:53:36 +00:00
parent 7b3b493c07
commit fa082787da
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
SWIM/Safex.pm
View File

@ -881,6 +881,7 @@ sub history {
push(@HISTORY,$line); undef $line; push(@HISTORY,$line); undef $line;
} }
return @HISTORY; return @HISTORY;
} # end sub history } # end sub history
@ -903,15 +904,14 @@ sub history_print {
my @HISTORY = <HISTORY>; my @HISTORY = <HISTORY>;
close(HISTORY); close(HISTORY);
if ($#HISTORY < $HISTORY - 1) { if ($#HISTORY < $HISTORY - 1) {
push(@HISTORY,"$arg\n"); push(@HISTORY,"$arg\n") if $arg;
} }
else { else {
shift(@HISTORY); shift(@HISTORY);
push(@HISTORY,"$arg\n"); push(@HISTORY,"$arg\n") if $arg;
} }
open(HISTORY,">$swim_history") or exit; open(HISTORY,">$swim_history") or exit;
print HISTORY @HISTORY; print HISTORY @HISTORY;
} # end sub history_print } # end sub history_print