projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
15ee030
)
correct typo
author
minima
<minima>
Wed, 14 Mar 2001 01:29:14 +0000
(
01:29
+0000)
committer
minima
<minima>
Wed, 14 Mar 2001 01:29:14 +0000
(
01:29
+0000)
perl/ExtMsg.pm
patch
|
blob
|
history
diff --git
a/perl/ExtMsg.pm
b/perl/ExtMsg.pm
index 6ea47a516b06f69d9a43f74681cb0b8423855a04..954703b335cdb0ac134b953ad6ebdd6b7c953caa 100644
(file)
--- a/
perl/ExtMsg.pm
+++ b/
perl/ExtMsg.pm
@@
-58,7
+58,7
@@
sub dequeue
my $conn = shift;
my $msg;
my $conn = shift;
my $msg;
- if ($conn->{sort} eq 'ax25' && exists $conn->{msg}) {
+ if ($conn->{
c
sort} eq 'ax25' && exists $conn->{msg}) {
$conn->{msg} =~ s/\cM/\cJ/g;
}
if ($conn->{state} eq 'WC') {
$conn->{msg} =~ s/\cM/\cJ/g;
}
if ($conn->{state} eq 'WC') {
@@
-229,7
+229,7
@@
sub _doconnect
}
dbg('connect', "program $sort $line started");
$conn->{pid} = $pid;
}
dbg('connect', "program $sort $line started");
$conn->{pid} = $pid;
- $conn->{sort} = $sort;
+ $conn->{
c
sort} = $sort;
$conn->{lineend} = "\cM" if $sort eq 'ax25';
} else {
dbg('connect', "can't $sort fork for $line $!");
$conn->{lineend} = "\cM" if $sort eq 'ax25';
} else {
dbg('connect', "can't $sort fork for $line $!");