[openpgp-applet] 18/61: Follow some Test::Perl::Critic recommandations

[Clement Hermann]

This is an automated email from the git hooks/post-receive script.

nodens-guest pushed a commit to annotated tag OpenPGP_Applet-0.9
in repository openpgp-applet.

commit 7c91bd2ed07a6a6f1be44f55f45e60ae3702a03f
Author: Clément Hermann (nodens) <nodens at nodens.org>
Date:   Fri Aug 8 15:29:07 2014 +0200

    Follow some Test::Perl::Critic recommandations
---
 bin/openpgp-applet                    | 2 +-
 lib/OpenPGP_Applet/GnuPG/Interface.pm | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/bin/openpgp-applet b/bin/openpgp-applet
index a0c3fd9..1416a43 100755
--- a/bin/openpgp-applet
+++ b/bin/openpgp-applet
@@ -309,7 +309,7 @@ sub set_clipboards_text {
         $_->set_text($encoded_text);
     }
     # GTK fails setting the primary selection above, so let's use xclip :/
-    open(my $xclip, '| xclip') or die "Error opening pipe to xclip";
+    open(my $xclip, '|-', 'xclip') or die "Error opening pipe to xclip";
     print $xclip $encoded_text or die "Error copying data to X clipboard";
     close $xclip or die "Error closing pipe to xclip";
 }
diff --git a/lib/OpenPGP_Applet/GnuPG/Interface.pm b/lib/OpenPGP_Applet/GnuPG/Interface.pm
index c29c325..7519393 100644
--- a/lib/OpenPGP_Applet/GnuPG/Interface.pm
+++ b/lib/OpenPGP_Applet/GnuPG/Interface.pm
@@ -1,4 +1,5 @@
 package OpenPGP_Applet::GnuPG::Interface;
+use strict;
 use Any::Moose;
 extends 'GnuPG::Interface';
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/openpgp-applet.git