my @files;
if (-f $out . '.top')
{
- push (@files, "${cn_sans_dir}.top");
+ push (@files, "$cn_sans_dir.top");
}
if (-f $out . '.bot')
{
- push (@files, "${cn_sans_dir}.bot");
+ push (@files, "$cn_sans_dir.bot");
}
- &push_dist_common (@files);
+ push_dist_common (@files);
# For now, acconfig.h can only appear in the top srcdir.
if (-f 'acconfig.h')
for my $generalize (keys %generalize)
{
- s/$generalize/$generalize{$generalize}/g;
+ s/\b$generalize\b/$generalize{$generalize}/g;
}
# functions.
%require_file_found = ();
+
+# &maybe_push_required_file ($DIR, $FILE, $FULLFILE)
+# --------------------------------------------------
# See if we want to push this file onto dist_common. This function
# encodes the rules for deciding when to do so.
sub maybe_push_required_file
if ($dir eq $relative_dir)
{
- &push_dist_common ($file);
+ push_dist_common ($file);
}
elsif ($relative_dir eq '.' && ! &is_make_dir ($dir))
{
# If we are doing the topmost directory, and the file is in a
# subdir which does not have a Makefile, then we distribute it
# here.
- &push_dist_common ($fullfile);
+ push_dist_common ($fullfile);
}
}
elsif (-f $fullfile)
{
$found_it = 1;
- &maybe_push_required_file ($dir, $file, $fullfile);
+ maybe_push_required_file ($dir, $file, $fullfile);
$save_dir = $dir;
last;
}
}
}
- &maybe_push_required_file (dirname ($errfile),
- $file, $errfile);
+ maybe_push_required_file (dirname ($errfile),
+ $file, $errfile);
# Prune the path list.
@require_file_paths = &dirname ($errfile);