diff options
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/uri | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -74,6 +74,8 @@ if ($opts{h}) { my $fn = $opts{d} ? \&URI::Escape::uri_unescape : \&URI::Escape::uri_escape; -for (@ARGV ? @ARGV : <STDIN>) { - say &$fn($_); +$|++; + +while ($_ = (@ARGV ? @ARGV : <STDIN>)) { + print &$fn($_); } |