Steven Mackenzie schrieb:
> Is the source file missing there?
Hmm. I would rather think not. Perhaps a -B is missing there?
This was your output: C:\DOCUME~1\steven\LOCALS~1\Temp\parls1fa.exe
-Otest_parl.exe
Here's the code:
# Use this to generate a real parl
my @libs = (map {"-I$_"} @INC);
my @args = (@libs, qw/-q -B/); # <----- Note the -B!
# @libs should *not* be empty either!
# prepend ./ if applicable
my $execute = $tfile;
my @dirs = File::Spec->splitdir(
(File::Spec->splitpath($execute))[1] # directory part only
);
$execute = File::Spec->catfile(File::Spec->curdir(), $tfile) if not
@dirs;
system($execute, @args, "-O$file") and unlink($tfile), return();
Mostly ... I hope the output is useful.
Yes, I think so. But I'm at a loss as to what's happening. There is no
way @args would be empty!
Steffen
