my $dd = new Data::Dumper([$value]);
$dd->Indent(0);
$dd->Terse(1);
- $dd->Quotekeys($] < 5.005 ? 1 : 0);
+ $dd->Quotekeys(0);
$value = $dd->Dumpxs;
}
$prompt = sprintf "%15s: %s", $prompt, $value;
# check that a field only has callsign characters in it
sub is_callsign
{
- return $_[0] =~ /^[A-Z0-9\-]+$/;
+ return $_[0] =~ /^(?:[A-Z]{1,2}\d+|\d[A-Z]\d+)[A-Z0-9\/\-]+$/;
}
# check that a PC protocol field is valid text