cvsuser 03/08/21 07:16:21
Modified: config/init headers.pl
Log:
J. Boemmels suggestion for maniread
Revision Changes Path
1.2 +10 -9 parrot/config/init/headers.pl
Index: headers.pl
===================================================================
RCS file: /cvs/public/parrot/config/init/headers.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- headers.pl 21 Aug 2003 12:13:07 -0000 1.1
+++ headers.pl 21 Aug 2003 14:16:21 -0000 1.2
@@ -3,6 +3,7 @@
use strict;
use vars qw($description @args);
use Parrot::Configure::Step;
+use ExtUtils::Manifest qw(maniread);
$description="Determinig nongenerated header files...";
@@ -13,8 +14,8 @@
my @headers=(
sort
- map { m{\./$inc/(.*)} }
- glob "./$inc/*.h"
+ map { m{$inc/(.*)} }
+ keys %{maniread()}
);
$_ = "\$(INC)/$_" for @headers;
