Lines Matching refs:filename
207 my($filename, $autodir, $keep, $check_for_autoloader, $check_mod_time)
217 $filename = VMS::Filespec::unixify($filename); # may have dirs
230 $filename .= ".pm" unless ($filename =~ m/\.pm\z/);
232 open(my $in, "<$filename") or die "AutoSplit: Can't open $filename: $!\n";
233 my($pm_mod_time) = (stat($filename))[9];
252 print "AutoSplit skipped $filename: no AutoLoader used\n"
256 $_ or die "Can't find __END__ in $filename\n";
258 $def_package or die "Can't find 'package Name;' in $filename\n";
264 "match filename $filename"
265 unless ($filename =~ m/\Q$modpname.pm\E$/ or
267 $Is_VMS && $filename =~ m/$modpname.pm/i);
275 print "AutoSplit skipped ($al_idx_file newer than $filename)\n"
282 print "AutoSplitting $filename ($modnamedir)\n"
349 # NOTE: Derived from $filename.
354 #line $lineno "$filename (autosplit into $path)"
388 # filename, and so be cleaned up as a scrap file)
416 print $ts "# Index created by AutoSplit for $filename\n";
430 _check_unique($filename, $Maxlen, 1, @outfiles);
455 my($filename, $maxlen, $warn, @outfiles) = @_;
473 print "$filename: some names are not unique when " .