Fix experimental warnings

[app-xmms2-notifier.git] / xmms2-notifier

diff --git a/xmms2-notifier b/xmms2-notifier
index 437b68167217465efde2aef794a518c6dc5eaf73..a4812ae1e487bfdc2e062375983836ab69ad140d 100755 (executable)
--- a/xmms2-notifier
+++ b/xmms2-notifier
@@ -1,10 +1,13 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 use v5.14;
 use warnings;
 
 use App::XMMS2::Notifier;
+use Getopt::Long;
 
-App::XMMS2::Notifier->run
+my $format = '$artist - $title';
+GetOptions ("format=s" => \$format);
+App::XMMS2::Notifier::run($format)
 
 __END__