diff options
author | John Ankarström <john@ankarstrom.se> | 2021-06-19 11:48:26 +0200 |
---|---|---|
committer | John Ankarström <john@ankarstrom.se> | 2021-06-19 11:48:26 +0200 |
commit | e1293ee10f1d9a845a23bbe127a130c9d1eda3b7 (patch) | |
tree | 3d8976081a470f2d7001cb69fc777d9337bcaad8 | |
parent | 10a3fb33824a239b0390203bea1aa4019525ec0c (diff) | |
download | dwim-e1293ee10f1d9a845a23bbe127a130c9d1eda3b7.tar.gz |
Fix use subs declaration
-rwxr-xr-x | dwim | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -5,7 +5,7 @@ use v5.24; use warnings; use strict; -use subs qw/arguments dir env fail handle path run/; +use subs qw/dir dirname env fail handle path run/; my @OPENER = ('xtopen'); my @EDITOR = (@OPENER, 'vi'); @@ -140,6 +140,7 @@ sub dirname { $path =~ s,/[^/]+$,,; return $path; } + # env -- for (K => V), return environment variable K if defined, otherwise V sub env { my %h = @_; |