Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
22 lines (21 sloc) 442 Bytes
#!/usr/bin/perl
#
# Build.PL Preprocessing helper script.
# $Id$
#
use strict;
use warnings;
use lib qw( lib build );
use Build;
my $build = Build->current;
for my $file ( @ARGV ) {
if( $file =~ /mt_(\w+)\.js$/ ) {
$build->make_js( $1, $file );
}
elsif( $file =~ /(\w+)-iso-8859-1\.pm$/ ) {
$build->make_latin1( $1, $file );
}
else {
$build->substitute( $build->notes( 'config' ), $file );
}
}
Something went wrong with that request. Please try again.