diff options
| author | Simon Cozens <simon@netthink.co.uk> | 2000-11-28 12:44:35 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-28 16:21:46 +0000 |
| commit | 3af308c73aa7e9426250922a5779b8f3f7ae2095 (patch) | |
| tree | f408da8d3120ec5a53661b5b46f2a08cc507a1ff /utils | |
| parent | e138c1e6a8f2591f75d7cc1ac76732109706d55d (diff) | |
| download | perl-3af308c73aa7e9426250922a5779b8f3f7ae2095.tar.gz | |
perlcc.PL cleanups
Message-ID: <20001128124435.A5500@pembro33.pmb.ox.ac.uk>
p4raw-id: //depot/perl@7900
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/perlcc.PL | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/utils/perlcc.PL b/utils/perlcc.PL index 0c4b726d35..a9501305c8 100644 --- a/utils/perlcc.PL +++ b/utils/perlcc.PL @@ -308,10 +308,10 @@ sub cc_harness { my ($cfile,$stash)=@_; use ExtUtils::Embed (); my $command = ExtUtils::Embed::ccopts." -o $Output $cfile "; - $command .= join " -I", split /\s+/, opt(I); - $command .= join " -L", split /\s+/, opt(L); + $command .= " -I".$_ for split /\s+/, opt(I); + $command .= " -L".$_ for split /\s+/, opt(L); my @mods = split /-?u /, $stash; - $command .= ExtUtils::Embed::ldopts("-std", \@mods); + $command .= " ".ExtUtils::Embed::ldopts("-std", \@mods); vprint 3, "running cc $command"; system("cc $command"); } |