Lines Matching refs:P
18 my $P = $0;
19 my $D = dirname(abs_path($P));
83 Usage: $P [OPTION]... [FILE]...
163 open(my $script, '<', abs_path($P)) or
164 die "$P: Can't read '$P' $!\n";
223 or warn "$P: Can't find a readable $configuration_file file $!\n";
247 or warn "$P: Can't read the documentation file $docsfile $!\n";
358 die "$P: --git cannot be used with --file or --fix\n" if ($git && ($file || $fix));
359 die "$P: --verbose cannot be used with --terse\n" if ($verbose && $terse);
370 die "$P: Invalid color mode: $color\n";
384 printf "$P: requires at least perl version %vd\n", $minimum_perl_version;
394 die "$P: Invalid TAB size: $tabsize\n" if ($tabsize < 2);
448 die "$P: $root: --root does not point at a valid tree\n";
1115 or warn "$P: Can't read '$file' $!\n";
1186 or warn "$P: Can't read '$camelcase_cache' $!\n";
1208 or warn "$P: Can't write '$camelcase_cache' $!\n";
1269 die "$P: No git repository found\n" if ($git && !-e "$gitroot");
1292 die "$P: no git commits after extraction!\n" if (@commits == 0);
1305 die "$P: $filename: git format-patch failed - $!\n";
1308 die "$P: $filename: diff failed - $!\n";
1313 die "$P: $filename: open failed - $!\n";
7748 or die "$P: Can't open $newfile for write\n";