Subject: | Segfault in Validate.so (Params::Validate) |
#!/usr/bin/perl
use Params::Validate ;
my %x= %!;
sub _w($@){
my $mess = shift;
my %opt = validate( @_, { user=>0, d=>0} );
print STDERR $mess, "\n";
}
_w "yyy". d=>\%!; # here is typo instead of ,(comma) is . (dot)
this script produce a segfault. ( perl-10.0.0 Linux )
Oct 12 14:13:57 toh-dev kernel: perl[25096]: segfault at e ip
00007f573ba438ed sp 00007fff44e8ef90 error 4 in
Validate.so[7f573ba3b000+c000]