diff options
| author | fukachan <fukachan> | 2003-08-30 13:53:43 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-08-30 13:53:43 +0000 |
| commit | a4cd5ff806846bf51524005b19033108073c39f7 (patch) | |
| tree | fdf74504ed6b6506dd8db6985c896d996a01f9e6 /regress | |
| parent | 65a482d6c7be48b69d77c2eaf13bdb73020d28f9 (diff) | |
| download | fml8-a4cd5ff806846bf51524005b19033108073c39f7.tar.gz fml8-a4cd5ff806846bf51524005b19033108073c39f7.tar.bz2 fml8-a4cd5ff806846bf51524005b19033108073c39f7.zip | |
trap open()/close() not open.*/close.*.
Diffstat (limited to 'regress')
| -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 e70f462a..bd3099b2 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.5 2003/01/29 13:35:27 fukachan Exp $ +# $FML: find_bad_style.pl,v 1.6 2003/03/28 11:05:25 fukachan Exp $ # use strict; @@ -73,7 +73,7 @@ while (<>) { # if (/IO::Adapter/) { $ioadapter = 1;}; if (/defined/) { $defined = 1;} - if (/\$\S+\-\>(close|open)/ && (!/^sub /) && (!/^=head/) && (!/\$self/)) { + if (/\$\S+\-\>(close|open)\(/ && (!/^sub /) && (!/^=head/) && (!/\$self/)) { unless ($defined || $ioadapter) { $buf .= " ===> ". $_; $buf =~ s/\n/\n\t/gm; |