Front page | perl.perl5.porters |
Postings from October 2003
On Thu, Oct 09, 2003 at 02:51:05AM +0900, Tatsuhiko Miyagawa wrote:
> I can't figure out what causes it, but the following script (called
> perlmodulelist) raises segmentation faults on my box:
>
> #!/usr/local/bin/perl -l
> use strict;
> use Config;
> use File::Find;
>
> my %mod;
>
> for my $inc (@INC) {
> next if $inc eq '.';
> find(sub { check_mod($inc, \%mod) }, $inc);
> }
>
> print for sort keys %mod;
>
> sub check_mod {
> my($dir, $mods) = @_;
> /\.p(m|od)$/ and push_mod($dir, $File::Find::name, $mods);
> }
>
> sub push_mod {
> my($dir, $name, $mods) = @_;
> $name =~ s@^$dir/(mach/|$Config{archname}/)?@@;
> $name =~ s@/@::@g;
> $name =~ s/\.p(m|od)$//;
> $name =~ s/^pod:://;
> $mods->{$name} = 1;
> }
>
> __END__
I can't reproduce this. However, I notice:
> %ENV:
> PERL5LIB="/home/miyagawa/local/lib/perl5/site_perl/5.005"
> @INC:
> /home/miyagawa/local/lib/perl5/site_perl/5.005
> /usr/local/lib/perl5/5.8.1/i386-freebsd-thread-multi
...
The 5.005 bit looks a bit suspicicious. Does it still coredump without
PERL5LIB set?
Dave.
--
This email is confidential, and now that you have read it you are legally
obliged to shoot yourself. Or shoot a lawyer, if you prefer. If you have
received this email in error, place it in its original wrapping and return
for a full refund. By opening this email, you accept that Elvis lives.
Thread Previous
|
Thread Next