Just say no to indirect object notation

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

diff --git a/hl.pl b/hl.pl
index f652643c37160f6a22698536a248dc28178a0b43..fdaaf5cb89477d755e54fc52d7b37c39b0a3539c 100755 (executable)
--- a/hl.pl
+++ b/hl.pl
@@ -84,12 +84,14 @@ filter 'Channel Action Hilight' => sub {
  }
 } => 'Channel Action';
 
-$ph = new Xchat::XPI name   => 'Smart highlighting',
-                     tag    => 'HL',
-                     desc   => 'Highlight on private messages',
-                     author => 'Vincent Pit (VPIT)',
-                     email  => 'perl@profvince.com',
-                     url    => 'http://www.profvince.com';
+$ph = Xchat::XPI->new(
+ name   => 'Smart highlighting',
+ tag    => 'HL',
+ desc   => 'Highlight on private messages',
+ author => 'Vincent Pit (VPIT)',
+ email  => 'perl@profvince.com',
+ url    => 'http://www.profvince.com',
+);
  
 1;