From: Simon Cozens <simon@netthink.co.uk>
Date: Tue, 28 Nov 2000 12:44:35 +0000 (+0000)
Subject: perlcc.PL cleanups
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3af308c73aa7e9426250922a5779b8f3f7ae2095;p=p5sagit%2Fp5-mst-13.2.git

perlcc.PL cleanups
Message-ID: <20001128124435.A5500@pembro33.pmb.ox.ac.uk>

p4raw-id: //depot/perl@7900
---

diff --git a/utils/perlcc.PL b/utils/perlcc.PL
index 0c4b726..a950130 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");
 }