From Carl.Boberg at nrm.se Tue Feb 1 08:56:42 2005 From: Carl.Boberg at nrm.se (Carl Boberg) Date: Tue, 1 Feb 2005 09:56:42 +0100 Subject: Simpel perl code makes kernel panic Message-ID: <521A1817A68E5F4895A67C104512BF5F567C9B@GANDALF.nrm.se> No, No bugzilla yet since I thought it would be nice to verify the problem properly first. I would like to mess around with it a bit more but at the moment I do not have a test box to do so. The code can be downloaded at: http://www.while.homeunix.net/mailstats/Vispan-2.0.2.tar.gz I will try to find a box and set it up to reproduce the problem as soon as possible. Any help is appreciated but there is no rush :-) At the moment I run the perl script as intended but with the PrintEnd part commented out. It runs perfectly without the PrintEnd part... / Carl > -----Original Message----- > From: redhat-sysadmin-list-bounces at redhat.com > [mailto:redhat-sysadmin-list-bounces at redhat.com] On Behalf Of > Matthew Galgoci > Sent: den 31 januari 2005 17:13 > To: redhat-sysadmin-list at redhat.com > Subject: Re: Simpel perl code makes kernel panic > > > Hi, > > This is a confusing/weird problem. > > Following is a simple piece of perl code that causes my > system (RHAS 3.0) kernel panic everytime it is run with cron! > > When I run it manually as root everything runs as it should > and no panic.... > > The system is running MailScanner and acts as a mail > gateway and this code is part of a stats program called Vispan. > > Ive told this to the guy developing it but he seems to hav > no idea why this happens and may others run it whitout this problem. > > The system is U4 and has only rpms installed except for > these two programs and ClamAV. > > Just wonderng if anyone on this list is a perlguru and have > intimate > > knowledge of RH systems and might have a look:-) Here is > the code which only task is to print the footer of the html > pages for the Vispan stats: > > > > #sub PrintEnd { > > # local($handle) = @_; > > # my $line; > > # my $Footer = Config::Value(Footer); > > # > > # if(open(FOOTER,$Footer)) { > > # @footer=