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
Notes: svn2git 2020-12-20 02:59:44 +00:00
svn path=/head/; revision=89298

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;
}