Just say no to indirect object notation

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

diff --git a/clones.pl b/clones.pl
index a8b01fb24b868f6c3f29bd9502c0ea5d69bfd5fd..c735c884a45c1ad388c65b06fe388e2ee60f9d52 100755 (executable)
--- a/clones.pl
+++ b/clones.pl
@@ -256,12 +256,14 @@ hook_command 'CLSCAN', sub {
  help_text => 'Scan for clones in the current channel'
 };
 
-$ph = new Xchat::XPI name   => 'Clones scanner',
-                     tag    => 'Clones',
-                     desc   => 'Automatic & on-demand clones scanner',
-                     author => 'Vincent Pit (VPIT)',
-                     email  => 'perl@profvince.com',
-                     url    => 'http://www.profvince.com',
-                     unload => sub { undef %users };
+$ph = Xchat::XPI->new(
+ name   => 'Clones scanner',
+ tag    => 'Clones',
+ desc   => 'Automatic & on-demand clones scanner',
+ author => 'Vincent Pit (VPIT)',
+ email  => 'perl@profvince.com',
+ url    => 'http://www.profvince.com',
+ unload => sub { undef %users },
+);
 
 1;