diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2004-08-20 19:58:06 +0000 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2004-08-20 19:58:06 +0000 |
| commit | 6b1c07685a3ea08a50eef8f00e7dbf53958b1be3 (patch) | |
| tree | 3bcc83a2c017656054b85b07a32db288f4e9b989 /bin/ifnames.in | |
| parent | d4f7aabdf10a6e2ff2c56d0ee9b534c92debf0ec (diff) | |
| download | autoconf-6b1c07685a3ea08a50eef8f00e7dbf53958b1be3.tar.gz | |
Use "file name" rather than "filename" or "path",
to be consistent with the terminology of the GNU coding standards.
Diffstat (limited to 'bin/ifnames.in')
| -rw-r--r-- | bin/ifnames.in | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/bin/ifnames.in b/bin/ifnames.in index 676b0343..94102968 100644 --- a/bin/ifnames.in +++ b/bin/ifnames.in @@ -88,12 +88,12 @@ sub parse_args () my %occurrence; -# &scan_file ($FILENAME) -# ---------------------- +# &scan_file ($FILE-NAME) +# ----------------------- sub scan_file ($) { - my ($filename) = @_; - my $file = new Autom4te::XFile ($filename); + my ($file_name) = @_; + my $file = new Autom4te::XFile ($file_name); while ($_ = $file->getline) { # Continuation lines. @@ -111,7 +111,7 @@ sub scan_file ($) { next if $word eq 'defined' || $word !~ /^[a-zA-Z_]/; - $occurrence{$word}{$filename} = 1; + $occurrence{$word}{$file_name} = 1; } } } |