diff options
| author | fukachan <fukachan> | 2004-03-12 12:16:35 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-03-12 12:16:35 +0000 |
| commit | b1395fceb5f07acb9f0f50430265d6756b85eb80 (patch) | |
| tree | f12de4d99216c6702cedcb59ebe1dbedc58c085e | |
| parent | 74ca8d309de4a814419f67b0cb17bdec3b2a4a3c (diff) | |
| download | fml8-b1395fceb5f07acb9f0f50430265d6756b85eb80.tar.gz fml8-b1395fceb5f07acb9f0f50430265d6756b85eb80.tar.bz2 fml8-b1395fceb5f07acb9f0f50430265d6756b85eb80.zip | |
disable mtime check
| -rwxr-xr-x | regress/style/find_bad_style.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/regress/style/find_bad_style.pl b/regress/style/find_bad_style.pl index 39ec7c1e..afab12e9 100755 --- a/regress/style/find_bad_style.pl +++ b/regress/style/find_bad_style.pl @@ -5,7 +5,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: find_bad_style.pl,v 1.7 2003/08/30 13:53:43 fukachan Exp $ +# $FML: find_bad_style.pl,v 1.8 2004/01/04 13:37:14 fukachan Exp $ # use strict; @@ -41,7 +41,7 @@ while (<>) { print "\n$ARGV\n\twrong copyright\n" unless $copyright =~ /$year/; # compare mtime - { + if (0) { my $st = stat($ARGV); my $mt = $st->mtime; my ($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime($mt); |