Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Faulting application perl.exe, version 0.0.0.0, faulting module msvcrt.dll, version 7.0.2600.1106, fault address 0x0003334c.

by Anonymous Monk
on Oct 21, 2009 at 12:41 UTC ( #802444=perlquestion: print w/ replies, xml ) Need Help??
Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Can you reproduce this error? Or fix it? It only happens under taint. Editing either the html/codefile can make the error disappear (similar to disappearing segfault). I've reproduced this on activeperl5.8.9, strawberry5.10, and perl v5.11.0 I compiled myself

perl -T taintbug.pl file:http.taint.html

#!/usr/bin/perl -- -- # without Taint there is no bug use strict; use warnings; warn "THIS REPLICATES THE BUG\n";warn $_ for %INC; { #NOBUG without $ua ##### # # # # use WWW::Mechanize; my $ua = WWW::Mechanize->new(); my $url = shift; die "NoBug WO file:httpbug.htm" unless $url and length $url and $url =~ m!http.*?(\w).(\w)!i ; $ua->get($url); my $pager = parsepage($ua); warn; } exit(0); sub parsepage { my $ua = shift; my %so; my $so = join "\n", $ua->content =~/(so\.addVariable\(\s*'.+?'\s*, +\s*'.+?'\s*\)\s*;)/mg; warn $so; warn; # Insecure dependency in kill while running with -T switc +h at C:/Perl/site/lib/WWW/Mechanize.pm line 2326. #Faulting application perl.exe, version 5.8.9.825, faulting module msv +crt.dll, version 7.0.2600.1106, fault address 0x00033283. # 11111111111111111111111111111111111111111111111111111111111111111 +1 1 while($so =~/so\.addVariable\('([^']+)','([^']+)'\);/mg){ warn "b $1 $2"; $so{"$1"}="$2"; warn "a $1 $2"; } require CGI; return CGI->new({%so}); } __END__

Comment on Faulting application perl.exe, version 0.0.0.0, faulting module msvcrt.dll, version 7.0.2600.1106, fault address 0x0003334c.
Download Code
Re: Faulting application perl.exe, version 0.0.0.0, faulting module msvcrt.dll, version 7.0.2600.1106, fault address 0x0003334c.
by Anonymous Monk on Oct 21, 2009 at 12:46 UTC
Re: Faulting application perl.exe, version 0.0.0.0, faulting module msvcrt.dll, version 7.0.2600.1106, fault address 0x0003334c.
by Anonymous Monk on Mar 06, 2012 at 10:57 UTC

    Very similar problem but with

    Faulting application perl.exe, version 0.0.0.0, faulting module perl514.dll, version 0.0.0.0, fault address 0x0006f0eb.

    The program

    #!/usr/bin/perl -- use strict; use warnings; use File::Slurp; my @junk = ("junk") x 15; for my $f ( @junk ){ my( $what, $junk ) = split /whatever/, scalar read_file( $f ); }

    The error goes away if you split a variable, say $f. It also doesn't happen with ActivePerl-5.14.2.1402-MSWin32-x86-295342. Is this bug important, I don't know :/

    File::Slurp 9999.19 and perl 5.14.1

    perl -V

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://802444]
Approved by marto
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (5)
As of 2014-11-28 05:50 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (193 votes), past polls