Unmunge the version preservation code and obfuscate it so CVS won't munge

it all over again.
This commit is contained in:
Dag-Erling Smørgrav 2002-01-12 23:08:59 +00:00
parent fa9401c129
commit 4e8b159f5e

View File

@ -57,10 +57,10 @@ MAIN:{
}
foreach $service (keys(%SERVICES)) {
$version = '$FreeBSD$';
$version = '$' . 'FreeBSD' . '$';
if (sysopen(FILE, $service, O_RDONLY)) {
while (<FILE>) {
next unless (m/(\$FreeBSD$]+\$)/);
next unless (m/(\$[F]reeBSD.*?\$)/);
$version = $1;
last;
}