Applied Nick Williams' patch to remove newlines from history read from

a file and to truncate the loaded history to the maximum number of lines it should maintain.
rcaputo · Jul 27, 2006 · 9a4bca5 · 9a4bca5
1 parent 7e13956
commit 9a4bca5
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/lib/POE/Wheel/ReadLine.pm b/lib/POE/Wheel/ReadLine.pm
@@ -1151,12 +1151,15 @@ sub history_truncate_file {
   $file ||= "$ENV{HOME}/.history";
   open(HIST, $file) or return undef;
   my @hist = <HIST>;
+  chomp(@hist);
   close(HIST);
+
   if ((scalar @hist) > $lines) {
     open(HIST, ">$file") or return undef;
     if ($lines) {
-      splice(@hist, -$lines);
-      print HIST @{$self->[SELF_HIST_LIST]} = @hist;
+      splice(@hist, 0, (scalar @hist)-$lines);
+      @{$self->[SELF_HIST_LIST]} = @hist;
+      print HIST join("\n", @hist) . "\n";
     } else {
       @{$self->[SELF_HIST_LIST]} = ();
     }