Changeset 7 for Makefile.PL

Show
Ignore:
Timestamp:
02/09/05 06:00:26 (4 years ago)
Author:
autrijus
svk:copy_cache_prev:
1041
Message:

* This be 6.0.2

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • Makefile.PL

    r5 r7  
    22 
    33use strict; 
     4use FindBin; 
    45use inc::Module::Install; 
     6 
     7chdir $FindBin::Bin; 
    58 
    69name            ('Perl6-Pugs'); 
    … …  
    3336 
    3437 
     38open IN, '< lib/Perl6/Pugs.pm' or die $!; 
    3539open FH, '> config.h' or die $!; 
     40 
     41while (<IN>) { 
     42    /version (\S+) .*\breleased (.*)\./ or next; 
     43    print FH << "."; 
     44 
     45#ifdef VERSION 
     46#undef VERSION 
     47#endif 
     48#define VERSION "$1" 
     49 
     50#ifdef DATE 
     51#undef DATE 
     52#endif 
     53#define DATE "$2" 
     54 
     55. 
     56    last; 
     57} 
     58 
    3659if ($has_readline) { 
    3760    print FH "#define READLINE 1\n";