diff options
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/history-stats | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/bin/history-stats b/bin/history-stats index b289f97..0fead1f 100755 --- a/bin/history-stats +++ b/bin/history-stats @@ -3,11 +3,11 @@ use strict; use warnings; use Getopt::Long; -use Path::Class; my $history_file = $ENV{SHELL} =~ m{/zsh} ? '.zsh_history' : '.bash_history'; -my $fh = dir($ENV{HOME})->file($history_file)->openr; +open my $fh, '<', "$ENV{HOME}/$history_file" + or die "couldn't open $ENV{HOME}/$history_file: $!"; my $n = 10; my $subcommand; GetOptions( |