[ikiwiki] / pm_filter

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

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

if (/INSTALLDIR_AUTOREPLACE/) {
	$_=qq{my \$installdir="$prefix";};
}
elsif (/VERSION_AUTOREPLACE/) {
	$_=qq{our \$version="$ver";};
}
elsif (/^use lib/) {
	if (grep { $_ eq $libdir } @INC) {
		$_="";
	}
	else {
		$_="use lib '$libdir';\n";
	}
}
Commit	Line	Data
f4d99ac1	1	#!/usr/bin/perl -i -p
	2
	3	BEGIN {
	4	$prefix=shift;
	5	$ver=shift;
5bc73d7f	6	$libdir=shift;
f4d99ac1	7	}
	8
	9	if (/INSTALLDIR_AUTOREPLACE/) {
	10	$_=qq{my \$installdir="$prefix";};
	11	}
	12	elsif (/VERSION_AUTOREPLACE/) {
	13	$_=qq{our \$version="$ver";};
	14	}
	15	elsif (/^use lib/) {
5bc73d7f	16	if (grep { $_ eq $libdir } @INC) {
	17	$_="";
	18	}
	19	else {
	20	$_="use lib '$libdir';\n";
	21	}
f4d99ac1	22	}