# HG changeset patch
# User Heiko Schlittermann (JUMPER) <hs@schlittermann.de>
# Date 1392243151 -3600
# Node ID 5c973cf5a4d61a7438ee199f57ababd8bc056cf3
# Parent  fb6344bb32dcba5c3a49b46c0473e2e6c369a967
[cleaned]

diff -r fb6344bb32dc -r 5c973cf5a4d6 redisplay
--- a/redisplay	Wed Feb 12 23:05:45 2014 +0100
+++ b/redisplay	Wed Feb 12 23:12:31 2014 +0100
@@ -14,14 +14,14 @@
 }
 
 sub main {
+    push @ARGV, "$ENV{HOME}/.google_authenticator";
 
     GetOptions(
         'h|help' => sub { pod2usage(-exit => 0, -verbose => 1) },
         'm|man'  => sub { pod2usage(-exit => 0, -verbose => 2) },
     ) or pod2usage;
 
-    if (@ARGV) { splice @ARGV, 1 }
-    else       { @ARGV = ("$ENV{HOME}/.google_authenticator") }
+    splice @ARGV, 1;
 
     my $google = do { local $/ = undef; <> }
       or die "$0: Can't read any input from $ARGV.\n";
@@ -35,7 +35,6 @@
     my $user = $ENV{USER} // $ENV{LOGNAME} // getpwuid $>;
     my $host = hostname;
 
-    open(my $o, '>&STDOUT');
     if (-t STDIN) {
         open STDOUT, '|qrencode -t ansi256'
           or die "$0: Can't open helper binary `qrencode': $!\n";