diff options
-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 = @_; |