use vars qw(@ISA $VERSION);
BEGIN {
- $VERSION = 1.02;
+ $VERSION = 3.07.00.049;
@ISA = qw(Net::Server::PreFork);
}
syslog("LOG_INFO", "raw_transport: shutting down");
}
-sub get_clean_string ($) {
+sub get_clean_string {
my $string = shift;
if (defined $string) {
syslog("LOG_DEBUG", "get_clean_string pre-clean(length %s): %s", length($string), $string);