提交 cd4bae26 编写于 作者: H Heikki Linnakangas

Remove obsolete version printing in atmsort.pm

We haven't used CVS, with its Revision tags, for a very long time.
上级 6d418638
......@@ -1113,20 +1113,8 @@ sub atmsort_bigloop
my $big_ignore = 0;
my $define_match_expression = undef;
my $error_detail_exttab_trifecta_skip = 0; # don't ask!
my $verzion = "unknown";
if (q$Revision$ =~ /\d+/)
{
$verzion = do { my @r = (q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; # must be all one line, for MakeMaker
}
my $format_fix = << "EOF_formatfix";
))}
EOF_formatfix
# NOTE: define $format_fix with HERE document just to fix emacs
# indenting due to comment char in Q expression...
$verzion = $0 . " version " . $verzion;
print $atmsort_outfh "GP_IGNORE: formatted by $verzion\n";
print $atmsort_outfh "GP_IGNORE: formatted by atmsort.pm\n";
my $do_equiv = $glob_compare_equiv || $glob_make_equiv_expected;
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册