Changeset 33539f7

Timestamp:

May 30, 2009, 6:26:49 PM (16 years ago)

Author:

Alex Dehnert <adehnert@mit.edu>

Branches:

master, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

6223638

Parents:

3043064

git-author:

Alex Dehnert <adehnert@mit.edu> (05/28/09 04:00:01)

git-committer:

Alex Dehnert <adehnert@mit.edu> (05/30/09 18:26:49)

Message:

Display context for pings

File:

• perlwrap.pm (modified) (1 diff)

perlwrap.pm

@@ -1020 +1020 @@
     my $self = shift;
     my $m = shift;
-    return "\@b(PING) from \@b(" . $m->pretty_sender . ")";
+    my $personal_context = $m->personal_context;
+    $personal_context = ' [' . $personal_context . ']' if $personal_context;
+    return "\@b(PING)" . $personal_context . " from \@b(" . $m->pretty_sender . ")";
 }