sub parray
{
my $ref = shift;
- return join(', ', @{$ref});
+ return ref $ref ? join(', ', @{$ref}) : $ref;
}
# take the arg as an array reference and print as a list of pairs
# check that a PC protocol field is valid text
sub is_pctext
{
- return undef if $_[0] =~ /[\x00-\x08\x0a-\x1f\xf0-\xff]/;
+ return undef if $_[0] =~ /[\x00-\x08\x0a-\x1f\x80-\x9f]/;
return $_[0];
}