Browse Source

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

complains about this.  Just checks that arg isn't "".
master
freesource 23 years ago
parent
commit
fa082787da
  1. 6
      SWIM/Safex.pm

6
SWIM/Safex.pm

@ -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

Loading…
Cancel
Save