diff options
Diffstat (limited to 'lib/Reply/Plugin/ReadLine.pm')
-rw-r--r-- | lib/Reply/Plugin/ReadLine.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Reply/Plugin/ReadLine.pm b/lib/Reply/Plugin/ReadLine.pm index 55baa38..5cced70 100644 --- a/lib/Reply/Plugin/ReadLine.pm +++ b/lib/Reply/Plugin/ReadLine.pm @@ -14,7 +14,7 @@ use Term::ReadLine; ; .replyrc [ReadLine] - history_file = '.hist' + history_file = .hist history_length = 100 =head1 DESCRIPTION @@ -40,6 +40,7 @@ sub new { my $self = $class->SUPER::new(@_); $self->{term} = Term::ReadLine->new('Reply'); my $history = $opts{history_file} || '.reply_history'; + $history =~ s{^~/}{$ENV{HOME}/}; $self->{history_file} = File::Spec->catfile( (File::Spec->file_name_is_absolute($history) ? () |