26 lines
405 B
Perl
Executable File
26 lines
405 B
Perl
Executable File
#!/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";
|
|
}
|
|
}
|
|
elsif ($. == 1 && $ENV{NOTAINT} && m{^(#!/usr/bin/perl) -T$}) {
|
|
$_=qq{$1\n};
|
|
}
|