send build in pc92 K

This commit is contained in:
Dirk Koopman 2007-10-10 08:48:43 +01:00
parent b72f258187
commit 0181f6483f
2 changed files with 2 additions and 2 deletions

View File

@ -430,7 +430,7 @@ sub pc92k
{
my $nref = shift;
my $s = "PC92^$main::mycall^" . gen_pc9x_t() . "^K";
$s .= "^" . _encode_pc92_call($nref, 1);
$s .= "^" . _encode_pc92_call($nref, 1) . ":$main::me->{build}";
$s .= "^" . scalar $nref->nodes;
$s .= "^" . scalar $nref->users;
return $s . '^H99^';

View File

@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
$version = '1.54';
$subversion = '0';
$build = '166';
$build = '167';
1;