pm_filter


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#!/usr/bin/perl -i -p

BEGIN {
	$prefix=shift;
	$ver=shift;
}

if (/INSTALLDIR_AUTOREPLACE/) {
	$_=qq{my \$installdir="$prefix";};
}
elsif (/VERSION_AUTOREPLACE/) {
	$_=qq{our \$version="$ver";};
}
elsif (/^use lib/) {
	$_="";
}