All,
I am having some weird system call return codes and I am hoping for some
help.
when I run in debug mode a system command I get this error:
here is my debugger code
perl -dT foo
use strict;
use warnings;
$ENV{"PATH"} = qq (/blah blah/);
system ("import -v H02046 900") or die $!;
END DEBUG MODE
syntax error at (eval 22) [/usr/perl5/5.6.1/lib/perl5db.pl:1521 ] line 2 ,
at EOF
Any ideas? The command works outside of debug mode, but not in debug mode.
In production I am running the snippet of code in a CGI program, and the
error I get from CGI::Carp is
"Interrupted system call" and
Can't locate object method "header" via package "Interrupted system call"
(perhaps you forgot to load "Interrupted system call"?) at
/var/apache/cgi-bin/ASM_monitor.pl line 30.
at line 30 is
sub error
{
my ($q, $error_messg) = @_;
print $q->header( -type=> "text/html" ), ## Line 30
here
$q->start_html("ASM CGI Page Error"),
$q->h1("ASM CGI Page Error"),
$q->p("The following Error has occurred when
retrieving ASM data via CGI to your browser:"),
$q->p($q->i($error_messg) ),
$q->end_html;
exit;
}
Derek B. Smith
OhioHealth IT
UNIX / TSM / EDM Teams
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
