chomp $r;
my @l = split /\n/, $r;
for (@l) {
- my $l = $_;
- $l =~ s/([\x00\x08\x0B-\x1f\x7f-\xff])/uc sprintf("%%%02x",ord($1))/eg;
- print "$l\n" if defined \*STDOUT;
- $fp->writeunix($t, "$t^$l");
+ s/([\x00\x08\x0B-\x1f\x7f-\xff])/uc sprintf("%%%02x",ord($1))/eg;
+ print "$_\n" if defined \*STDOUT;
+ $fp->writeunix($t, "$t^$_");
}
}
}
#ifdef SIGPWR
signal(SIGPWR, terminate);
#endif
+#ifdef SIGCLD
signal(SIGCLD, reaper);
+#else
+ #ifdef SIGCHILD
+ signal(SIGCHILD, reaper);
+ #endif
+#endif
/* init a few things */
chain_init(&echobase);