when using -purge it's defined but valueless

diff --git a/scripts/notes.pl b/scripts/notes.pl
index ea603793877087724e232d8228939d024699d156..28ba217eea7c770b4977c06af2994016612bdabf 100644 (file)
--- a/scripts/notes.pl
+++ b/scripts/notes.pl
@@ -145,7 +145,7 @@ sub cmd_notes_del {
   my $patt = join('|', @chatnets);
   my @networks = grep {/$patt/i} keys %$args;
 
-  my $purge = $args->{purge};
+  my $purge = (defined $args->{purge} ? 1 : 0);
   unless ($purge || ($type && $pattern)) {
     _error "Could not parse command\n" . usage(), $witem;
     return;
@@ -253,9 +253,9 @@ Irssi::command_bind('notes' => sub {
   Irssi::command_runsub ('notes', $data, $server, $item ) ;
 });
 
-Irssi::command_bind('notes add', \&cmd_notes_add);
-Irssi::command_bind('notes del', \&cmd_notes_del);
-Irssi::command_bind('notes list', \&cmd_notes_list);
+Irssi::command_bind('notes add', 'cmd_notes_add');
+Irssi::command_bind('notes del', 'cmd_notes_del');
+Irssi::command_bind('notes list', 'cmd_notes_list');
 Irssi::command_bind('notes help', sub { Irssi::active_win()->print(usage()); });
 
 Irssi::command_set_options('notes add', join(' ', @chatnets) . ' +nick +mask');