develooper Front page | perl.php.sandwich.dev | Postings from November 2008

[svn:PHP-Sandwich] r12058 - PHP-Sandwich/trunk

From:
aff
Date:
November 9, 2008 16:27
Subject:
[svn:PHP-Sandwich] r12058 - PHP-Sandwich/trunk
Message ID:
20081109180811.D6BD7CB9AF@x12.develooper.com
Author: aff
Date: Sun Nov  9 10:08:03 2008
New Revision: 12058

Modified:
   PHP-Sandwich/trunk/Makefile.PL

Log:
sub check_header:  Consider as directories only those args 
starting with '-I'. 


Modified: PHP-Sandwich/trunk/Makefile.PL
==============================================================================
--- PHP-Sandwich/trunk/Makefile.PL	(original)
+++ PHP-Sandwich/trunk/Makefile.PL	Sun Nov  9 10:08:03 2008
@@ -22,8 +22,9 @@
   die "Need an argument" if !$inc;
   print "Checking header files...\n";
 
-  # Replace -I at beginning of string and chop of newline character
-  my @incdirs = map { s/^-I//g; chomp; $_ } split(/ /, $inc);
+  # Consider as directories only those args starting with '-I' 
+  my @incdirs = grep(/^-I/, split(/ /, $inc));
+  @incdirs = map { s/^-I//g; chomp; $_ } @incdirs;
 
   for (@incdirs) {
     die "No such directory: '$_'" if (!-d);



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