mirror of
https://git.FreeBSD.org/ports.git
synced 2024-10-30 21:49:25 +00:00
13 lines
397 B
Perl
13 lines
397 B
Perl
#!/usr/bin/perl
|
|
#
|
|
|
|
eval '(exit $?0)' && eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
|
|
& eval 'exec /usr/bin/perl -S $0 $argv:q'
|
|
if 0;
|
|
|
|
chop( $hostname = `hostname` );
|
|
$files = ( "$ENV{'WRKDIR'}/server/quake/qslog $ENV{'WRKDIR'}/server/quake/qsrv.expect" );
|
|
|
|
system( "/usr/bin/perl -pi -e 's|%%PREFIX%%|$ENV{'PREFIX'}|g' $files" );
|
|
system( "/usr/bin/perl -pi -e 's|%%HOSTNAME%%|$hostname|g' $files" );
|