Lines Matching refs:patch

67 my @patch = (
176 if ($opt{patch} || $opt{oneshot}) {
179   patch_source($perl) if !exists $opt{patch} || $opt{patch};
347   for my $p (@patch) {
389   patch(<<'END');
420     patch(<<'END');
436     patch(<<'END');
455   patch(<<'END');
482   patch(<<'END');
499 sub patch  subroutine
501   my($patch) = @_;
502   print "patching $_\n" for $patch =~ /^\+{3}\s+(\S+)/gm;
504   write_or_die($diff, $patch);