my ($vs, @lt, $inf, $strft);
$vs= "@al";
$vs= $1 if $vs =~ m/^\$Revision\: ([0-9.]+)\ \$$/;
+ $vs.= " " if length $vs;
if (!defined $file_filename) {
- $inf= "$vs (unknown file: $file_lineno)";
+ $inf= "$vs(unknown file: $file_lineno)";
} elsif (!stat $file_filename ||
!(@lt= localtime((stat _)[9]))) {
- $inf= "$file_filename ($1 $!)";
+ $inf= "$file_filename ($vs$!)";
} else {
$strft= strftime "%Y-%m-%d %H:%M:%S +%Z", @lt;
- $inf= "$file_filename ($1 $strft)";
+ $inf= "$file_filename ($vs$strft)";
}
push @ident_strings, $inf;
@al= ();