develooper Front page | perl.perl5.porters | Postings from November 2000

[PATCH] perlcc.PL cleanups

Thread Next
From:
Simon Cozens
Date:
November 28, 2000 04:44
Subject:
[PATCH] perlcc.PL cleanups
Message ID:
20001128124435.A5500@pembro33.pmb.ox.ac.uk
These make -I and -L behave properly; single-element lists to "join" don't
do what I meant.

--- perlcc.PL~	Tue Nov 28 12:39:06 2000
+++ perlcc.PL	Tue Nov 28 12:43:17 2000
@@ -308,10 +308,10 @@
 	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");
 }

-- 
You advocate a lot of egg sucking but you're not very forthcoming with the 
eggs. - Phil Winterbottom (to ken)

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About