/[haver]/haver/haver-tk.pl
ViewVC logotype

Diff of /haver/haver-tk.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by bdonlan, Sun Oct 12 00:26:13 2003 UTC revision 1.3 by dylanwh, Sun Oct 12 00:33:35 2003 UTC
# Line 265  sub input { Line 265  sub input {
265          %{$heap} = ();          %{$heap} = ();
266          @users = ();          @users = ();
267          update_ulist;          update_ulist;
268      } elsif( $t =~ m!^/(?:mesg|msg) \s+ ( ([\"\']) .+? \2 | \S+) \s+ (.+)$!ix){      } elsif( $t =~ m!^/(?:mesg|msg) \s+ ( ([\"\']) .+? \2 | \S+) \s+ (.+)$ !ix){
269          my ($who, $msg) = ($1, $3);          my ($who, $msg) = ($1, $3);
270          if(defined $2){          if(defined $2){
271              $1 =~ s/$2//g;              $1 =~ s/$2//g;

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26