X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Porting%2Fmakerel;h=bc472eee36b526e173bb952cfcc7fb4a862ac374;hb=90248788f819cf7b59aabb5259fdd6d66bc4632b;hp=0476ab52b3f9653965b02c3877fe2b6158154937;hpb=137a30823a8754a31051e7dd9a85a8dddd6e7670;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/Porting/makerel b/Porting/makerel
index 0476ab5..bc472ee 100755
--- a/Porting/makerel
+++ b/Porting/makerel
@@ -35,6 +35,13 @@ print "Cross-checking the MANIFEST...\n";
 ($missfile, $missentry) = fullcheck();
 warn "Can't make a release with MANIFEST files missing.\n" if @$missfile;
 warn "Can't make a release with files not listed in MANIFEST.\n" if @$missentry;
+if ("@$missentry" =~ m/\.orig\b/) {
+    # Handy listing of find command and .orig files from patching work.
+    # I tend to run 'xargs rm' and copy and paste the file list.
+    my $cmd = "find . -name '*.orig' -print";
+    print "$cmd\n";
+    system($cmd);
+}
 die "Aborted.\n" if @$missentry or @$missfile;
 print "\n";