diff options
-rw-r--r-- | Build.PL | 2 | ||||
-rw-r--r-- | lib/App/Raps2/UI.pm | 4 |
2 files changed, 3 insertions, 3 deletions
@@ -11,7 +11,7 @@ my $build = Module::Build->new( 'Test::MockObject' => 0, 'Test::More' => 0, 'Test::Pod' => 0, - 'Test::Pod::Coverage' => 0, + 'Test::Pod::Coverage' => 1.00, }, license => 'unrestricted', module_name => 'App::Raps2', diff --git a/lib/App/Raps2/UI.pm b/lib/App/Raps2/UI.pm index b588222..2ba7002 100644 --- a/lib/App/Raps2/UI.pm +++ b/lib/App/Raps2/UI.pm @@ -92,12 +92,12 @@ sub to_clipboard { my ( $self, $str ) = @_; open( my $clipboard, q{|-}, 'xclip -l 1' ) - or confess("Failed to execute xclip -l 1: $!"); + or confess("Failed to execute xclip -l 1: $!"); print $clipboard $str; close($clipboard) - or confess("Failed to close pipe to xclip: $!"); + or confess("Failed to close pipe to xclip: $!"); return; } |