Lines Matching refs:P

15 my $P = $0;
16 my $D = dirname(abs_path($P));
67 Usage: $P [OPTION]... [FILE]...
141 	open(my $script, '<', abs_path($P)) or
142 	    die "$P: Can't read '$P' $!\n";
164 	    or warn "$P: Can't find a readable $configuration_file file $!\n";
241 	printf "$P: requires at least perl version %vd\n", $minimum_perl_version;
316 			die "$P: $root: --root does not point at a valid tree\n";
785 	    or warn "$P: Can't read '$file' $!\n";
841 		    or warn "$P: Can't read '$camelcase_cache' $!\n";
863 		    or warn "$P: Can't write '$camelcase_cache' $!\n";
913 die "$P: No git repository found\n" if ($git && !-e ".git");
936 	die "$P: no git commits after extraction!\n" if (@commits == 0);
945 			die "$P: $filename: git format-patch failed - $!\n";
948 			die "$P: $filename: diff failed - $!\n";
953 			die "$P: $filename: open failed - $!\n";
6425 		    or die "$P: Can't open $newfile for write\n";