Just say no to indirect object notation

[perl/scripts/xchat.git] / mpd.pl

diff --git a/mpd.pl b/mpd.pl
index 440fea7702f2e8563647f93be546564ed867eb75..ca732888f329a3a807dd3b2485e6b5c77fd68be2 100755 (executable)
--- a/mpd.pl
+++ b/mpd.pl
@@ -52,11 +52,13 @@ hook_command $_, sub {
  help_text => "$_, output which song is currently played by mpd"
 } for qw/MPD NP/;
 
-$ph = new Xchat::XPI name   => 'MPD Client',
-                     tag    => 'MPD',
-                     desc   => 'Music Player Daemon client',
-                     author => 'Vincent Pit (VPIT)',
-                     email  => 'perl@profvince.com',
-                     url    => 'http://www.profvince.com';
+$ph = Xchat::XPI->new(
+ name   => 'MPD Client',
+ tag    => 'MPD',
+ desc   => 'Music Player Daemon client',
+ author => 'Vincent Pit (VPIT)',
+ email  => 'perl@profvince.com',
+ url    => 'http://www.profvince.com',
+);
 
 1;