Package: perl
Version: 5.8.8-7
Perl segfaults when compiling following script:
[EMAIL PROTECTED]:> cat PluginLoader.pm
package PluginLoader;
sub run_plugin
{#{{{
my ($self, $package, $params_hashref) = @_;
eval { use $package; };
}#}}}
1;
[EMAIL PROTECTED]:> strace perl -c PluginLoader.pm 2>&1 | tail -20
stat64("/usr/local/share/perl/5.8.8/strict.pmc", 0xbf96590c) = -1 ENOENT (No
such file or directory)
stat64("/usr/local/share/perl/5.8.8/strict.pm", 0xbf96581c) = -1 ENOENT (No
such file or directory)
stat64("/usr/lib/perl5/strict.pmc", 0xbf96590c) = -1 ENOENT (No such file or
directory)
stat64("/usr/lib/perl5/strict.pm", 0xbf96581c) = -1 ENOENT (No such file or
directory)
stat64("/usr/share/perl5/strict.pmc", 0xbf96590c) = -1 ENOENT (No such file or
directory)
stat64("/usr/share/perl5/strict.pm", 0xbf96581c) = -1 ENOENT (No such file or
directory)
stat64("/usr/lib/perl/5.8/strict.pmc", 0xbf96590c) = -1 ENOENT (No such file or
directory)
stat64("/usr/lib/perl/5.8/strict.pm", 0xbf96581c) = -1 ENOENT (No such file or
directory)
stat64("/usr/share/perl/5.8/strict.pmc", 0xbf96590c) = -1 ENOENT (No such file
or directory)
stat64("/usr/share/perl/5.8/strict.pm", {st_mode=S_IFREG|0644, st_size=599,
...}) = 0
open("/usr/share/perl/5.8/strict.pm", O_RDONLY|O_LARGEFILE) = 4
ioctl(4, SNDCTL_TMR_TIMEBASE or TCGETS, 0xbf965628) = -1 ENOTTY (Inappropriate
ioctl for device)
_llseek(4, 0, [0], SEEK_CUR) = 0
read(4, "package strict;\n\n$strict::VERSIO"..., 4096) = 599
_llseek(4, 598, [598], SEEK_SET) = 0
_llseek(4, 0, [598], SEEK_CUR) = 0
close(4) = 0
--- SIGSEGV (Segmentation fault) @ 0 (0) ---
+++ killed by SIGSEGV +++
Process 29114 detached
[EMAIL PROTECTED]:> uname -a
Linux stratocaster.vrp 2.6.18-4-686 #1 SMP Mon Mar 26 17:17:36 UTC 2007 i686
GNU/Linux
I'm running Debian etch.
--
WBR, Eugene Krivdyuk
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
