=cut
sub ftp_abort($) {
- my $msg = shift;
+ my $msg = shift;
- our $AbortExitCode; our $AbortPipe;
+ our $AbortExitCode; our $AbortPipe;
- if (defined $AbortPipe && defined fileno $AbortPipe)
- { print $AbortPipe $msg, "\n" }
- else
- { ftp_syslog('err', $msg) }
+ if (defined $AbortPipe && defined fileno $AbortPipe)
+ { print $AbortPipe $msg, "\n" }
+ else
+ { ftp_syslog('err', $msg) }
- exit $AbortExitCode;
+ exit $AbortExitCode;
}
# Initialize our syslogging