Lines Matching refs:P
18 my $P = $0;
19 my $D = dirname(abs_path($P));
72 Usage: $P [OPTION]... [FILE]...
146 open(my $script, '<', abs_path($P)) or
147 die "$P: Can't read '$P' $!\n";
170 or warn "$P: Can't find a readable $configuration_file file $!\n";
249 printf "$P: requires at least perl version %vd\n", $minimum_perl_version;
322 die "$P: $root: --root does not point at a valid tree\n";
859 or warn "$P: Can't read '$file' $!\n";
926 or warn "$P: Can't read '$camelcase_cache' $!\n";
948 or warn "$P: Can't write '$camelcase_cache' $!\n";
998 die "$P: No git repository found\n" if ($git && !-e ".git");
1021 die "$P: no git commits after extraction!\n" if (@commits == 0);
1031 die "$P: $filename: git format-patch failed - $!\n";
1034 die "$P: $filename: diff failed - $!\n";
1039 die "$P: $filename: open failed - $!\n";
6755 or die "$P: Can't open $newfile for write\n";