”><xmp>TokuLog 改メ tokuhirom’s blog

■[perl]today's segv

Infinite recursion on import cause segmentation fault.

package hoge;

sub import {
    my $class = shift;
    eval "use $class";
}

1;

perl -Ilib -e 'require hoge;hoge->import'
Deep recursion on subroutine "hoge::import" at (eval 99) line 2.
zsh: segmentation fault  perl -Ilib -e 'require hoge;hoge->import'

This is perl, v5.10.0 built for darwin-2level

ツイートする

Permalink | コメント(0) | トラックバック(0) | 08:46