fork and taint

[Asterbing]

Hello. This script below crashes perl.exe when in taint mode. I've not
any message in error log.

#!/usr/bin/perl -T
print "Content-type: text/html\n\n";
my $pid = fork();
die "fork: $!\n" unless defined $pid;
if (!$pid){
print "son ok<br>";
exit 0;}
print "daddy ok<br>";
exit 0;

It seems like the problem happen on line "my $pid = fork();" because if
I stop the script just below using an "exit 0;", it crashes the same
way.

 

[Gunnar Hjalmarsson]

Hello. This script below crashes perl.exe when in taint mode. I've not
any message in error log.

#!/usr/bin/perl -T
print "Content-type: text/html\n\n";
my $pid = fork();
die "fork: $!\n" unless defined $pid;
if (!$pid){
print "son ok<br>";
exit 0;}
print "daddy ok<br>";
exit 0;

It seems like the problem happen on line "my $pid = fork();" because if
I stop the script just below using an "exit 0;", it crashes the same
way.

Have you considered to ask Perl for help?

use strict;
use warnings;
use CGI::Carp 'fatalsToBrowser';

 

[Asterbing]

Have you considered to ask Perl for help?

use strict;
use warnings;
use CGI::Carp 'fatalsToBrowser';

Yes, I've done it and not any explicit error message is shown. Here is
the last script test I've used and it crashes the same way.

I only get the "before fork ok" in browser and perl.exe crashes, nothing
more. The only more thing I know, debugging the crash using Visual
Studio is that the exception occurs in PERL58.DLL.

#!/usr/bin/perl -T
use strict;
use warnings;
use CGI::Carp qw/fatalsToBrowser/;
print "Content-type: text/html\n\n";
print "before fork ok<br>";
my $pid = fork();
die "fork: $!\n" unless defined $pid;
if (!$pid){
print "son ok<br>";
exit 0;}
print "daddy ok<br>";
exit 0;

 

[Gunnar Hjalmarsson]

Yes, I've done it and not any explicit error message is shown. Here is
the last script test I've used and it crashes the same way.

I only get the "before fork ok" in browser and perl.exe crashes, nothing
more. The only more thing I know, debugging the crash using Visual
Studio is that the exception occurs in PERL58.DLL.

#!/usr/bin/perl -T
use strict;
use warnings;
use CGI::Carp qw/fatalsToBrowser/;
print "Content-type: text/html\n\n";
print "before fork ok<br>";
my $pid = fork();
die "fork: $!\n" unless defined $pid;
if (!$pid){
print "son ok<br>";
exit 0;}
print "daddy ok<br>";
exit 0;

That script runs fine with my IndigoPerl build of Perl (5.8.6).

 

[Asterbing]

That script runs fine with my IndigoPerl build of Perl (5.8.6).

Well, on my side, I'm using ActivePerl 5.8.7 build 815 and this script
works fine if not in taint mode only :-(

 

[Asterbing]

Well, on my side, I'm using ActivePerl 5.8.7 build 815 and this script
works fine if not in taint mode only :-(

Goog news : just updated to ActiveState ActivePerl 5.8.7.817 for Win32
and the problem is gone using the test script (not tested alsewhere at
this time). So, maybe a build 815's bug.