|
Revision 4196, 442 bytes
(checked in by takayama, 3 months ago)
|
|
* Set svn keywords
|
-
Property svn:keywords set to
Author Date Id Revision
|
| Line | |
|---|
| 1 | #!/usr/bin/perl |
|---|
| 2 | # |
|---|
| 3 | # Build.PL Preprocessing helper script. |
|---|
| 4 | # $Id$ |
|---|
| 5 | # |
|---|
| 6 | use strict; |
|---|
| 7 | use warnings; |
|---|
| 8 | use lib qw( lib build ); |
|---|
| 9 | use Build; |
|---|
| 10 | my $build = Build->current; |
|---|
| 11 | for my $file ( @ARGV ) { |
|---|
| 12 | if( $file =~ /mt_(\w+)\.js$/ ) { |
|---|
| 13 | $build->make_js( $1, $file ); |
|---|
| 14 | } |
|---|
| 15 | elsif( $file =~ /(\w+)-iso-8859-1\.pm$/ ) { |
|---|
| 16 | $build->make_latin1( $1, $file ); |
|---|
| 17 | } |
|---|
| 18 | else { |
|---|
| 19 | $build->substitute( $build->notes( 'config' ), $file ); |
|---|
| 20 | } |
|---|
| 21 | } |
|---|
