From: Tassilo von Parseval <tassilo.parseval@post.rwth-aachen.de>
Date: Tue, 15 Jul 2003 07:28:52 +0000 (+0200)
Subject: Re: [PATCH] h2xs and extra_libraries
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cbca5cc34abc6d8d00819c203db194f8e4b2f63b;p=p5sagit%2Fp5-mst-13.2.git

Re: [PATCH] h2xs and extra_libraries
Message-id: <20030715052852.GA494@ethan>

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

diff --git a/utils/h2xs.PL b/utils/h2xs.PL
index ffc343e..6e1f297 100644
--- a/utils/h2xs.PL
+++ b/utils/h2xs.PL
@@ -594,6 +594,7 @@ my ($opt_A,
    );
 
 Getopt::Long::Configure('bundling');
+Getopt::Long::Configure('pass_through');
 
 my %options = (
                 'omit-autoload|A'    => \$opt_A,
@@ -707,9 +708,10 @@ my @path_h;
 
 while (my $arg = shift) {
     if ($arg =~ /^-l/i) {
-        $extralibs = "$arg @ARGV";
-        last;
+        $extralibs .= "$arg ";
+        next;
     }
+    last if $extralibs;
     push(@path_h, $arg);
 }