Lines Matching refs:P
18 my $P = $0;
19 my $D = dirname(abs_path($P));
84 Usage: $P [OPTION]... [FILE]...
184 open(my $script, '<', abs_path($P)) or
185 die "$P: Can't read '$P' $!\n";
244 or warn "$P: Can't find a readable $configuration_file file $!\n";
268 or warn "$P: Can't read the documentation file $docsfile $!\n";
380 die "$P: --git cannot be used with --file or --fix\n" if ($git && ($file || $fix));
381 die "$P: --verbose cannot be used with --terse\n" if ($verbose && $terse);
392 die "$P: Invalid color mode: $color\n";
406 printf "$P: requires at least perl version %vd\n", $minimum_perl_version;
416 die "$P: Invalid TAB size: $tabsize\n" if ($tabsize < 2);
470 die "$P: $root: --root does not point at a valid tree\n";
1131 or warn "$P: Can't read '$file' $!\n";
1202 or warn "$P: Can't read '$camelcase_cache' $!\n";
1224 or warn "$P: Can't write '$camelcase_cache' $!\n";
1286 die "$P: No git repository found\n" if ($git && !-e "$gitroot");
1309 die "$P: no git commits after extraction!\n" if (@commits == 0);
1322 die "$P: $filename: git format-patch failed - $!\n";
1325 die "$P: $filename: diff failed - $!\n";
1330 die "$P: $filename: open failed - $!\n";
7824 or die "$P: Can't open $newfile for write\n";