diff options
| author | EuAndreh <eu@euandre.org> | 2022-10-14 23:17:09 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2022-10-14 23:17:09 -0300 |
| commit | 6c1d1cdb79184c4992f14062b40218f120a1d6b7 (patch) | |
| tree | b9ce9b6065a74d5e22952d7a353ffeb7bf43df03 /bin/uri | |
| parent | bin/x: Rewrite in Perl, overcome quoting issues (diff) | |
| download | dotfiles-6c1d1cdb79184c4992f14062b40218f120a1d6b7.tar.gz dotfiles-6c1d1cdb79184c4992f14062b40218f120a1d6b7.tar.xz | |
bin/uri: Split help option parsing from main program logic
Diffstat (limited to 'bin/uri')
| -rwxr-xr-x | bin/uri | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -66,7 +66,10 @@ if ($opts{h}) { say STDERR ''; usage *STDERR; exit 2; -} elsif ($opts{d}) { +} + + +if ($opts{d}) { print URI::Escape::uri_unescape(<STDIN>); } else { print URI::Escape::uri_escape(<STDIN>); |