"Gupta, Sharad" wrote:
> While running this:
>
> my $new = "/newtests/new ";
> $new .= "\'$fields{public}\' \'$fields{sev}\' \'$fields{pri}\' ";
> $new .= "\'$fields{cc}\' \'$fields{bug_rel}\' \'$fields{type}\' ";
> $new .= "\'$fields{title}\' \'$fields{description}\' \'$fields{owner}\'
> ";
> $new .= "\'$fields{impact}\' \'$fields{subtype}\' \'$fields{panicstr}\'
> ";
>
> my $out = qx($new)
> or die "Can't file: $OS_ERROR";
>
> I found this error:
>
> Illegal seek at ././job.pl line 316
>
> Any ideas??.
For testing purposes, break it down:
print my $public = $fields{'public'} ."\n";
print my $sev = $fields{'sev'};
...
print my $panicstr = $fields{'panicstr'}; # could the lack of quotes on this key have
led to
# the illegal seek?
Anyway, taking each key as a variable and printing them out should help isolate just
which
seek it is choking on--if this is indeed the code that is causing the problem.
Joseph
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
