Add perlcritic tests and make perlcritic happy

[app-xmms2-notifier.git] / lib / App / XMMS2 / Notifier.pm

diff --git a/lib/App/XMMS2/Notifier.pm b/lib/App/XMMS2/Notifier.pm
index 76c35211564e3ce789218a2a911158ea8b00389a..55a9653553a41e3700af0fd61cb8efe79c459df4 100644 (file)
--- a/lib/App/XMMS2/Notifier.pm
+++ b/lib/App/XMMS2/Notifier.pm
@@ -1,5 +1,5 @@
 package App::XMMS2::Notifier;
 package App::XMMS2::Notifier;

-use v5.14;
+use 5.014000;

 use strict;
 use warnings;
 our $VERSION = 0.001001;
 use strict;
 use warnings;
 our $VERSION = 0.001001;


@@ -33,7 +33,7 @@ sub notify{
 
        my %metadata = map { $_ => exists $minfo->{$_} ? (values %{$minfo->{$_}})[0] : undef } CONVERSION_SPECIFIERS;
        my $str=$format;
 
        my %metadata = map { $_ => exists $minfo->{$_} ? (values %{$minfo->{$_}})[0] : undef } CONVERSION_SPECIFIERS;
        my $str=$format;

-       $str =~ s/\$$_/$metadata{$_}/g for keys %metadata;
+       $str =~ s/\$$_/$metadata{$_}/gs for keys %metadata;

 
        notify_libnotify $str
 }
 
        notify_libnotify $str
 }


@@ -60,8 +60,7 @@ sub run {
        $xmms->loop
 }
 
        $xmms->loop
 }
 

-1
-
+1;

 __END__
 
 =head1 NAME
 __END__
 
 =head1 NAME