diff options
author | Jesse Luehrs <doy@tozt.net> | 2018-11-10 17:32:33 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2018-11-10 17:32:33 -0500 |
commit | dc2f4f8120faf7e0bb54a340e96afa229a3d3e49 (patch) | |
tree | 3d686d02c55e44fc24f2da529db5b026d6aa8f75 /bin | |
parent | 1b5102a1417f4d867a17ebda61c0727602b184af (diff) | |
download | conf-dc2f4f8120faf7e0bb54a340e96afa229a3d3e49.tar.gz conf-dc2f4f8120faf7e0bb54a340e96afa229a3d3e49.zip |
remove the last Path::Class usage here
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( |