#!/bin/sh
# -*- perl -*-
# This code allows us to start perl from our path or an environment variable
# rather than hardcoding a path into the #! line.  It works from sh or csh.
(exit $?0) && eval 'exec ${QPERLQ-perl} -x $0 ${1+"$@"}'
if (! $?QPERLQ) setenv QPERLQ perl
exec $QPERLQ -x $0 $argv:q

#!/usr/local/bin/perl -w
#
# $Id: cleanpatch,v 1.3 1998/05/01 22:55:45 ejb Exp $
# $Source: /home/ejb/scripts/RCS/cleanpatch,v $
# $Author: ejb $
#

require 5.002;
use strict;

my $whoami = ($0 =~ m,([^/\\]*)$,) ? $1 : $0;
#my $dirname = ($0 =~ m,(.*)[/\\][^/\\]+$,) ? $1 : ".";

my $dir;
defined($dir = $ARGV[0]) or $dir = ".";
chdir $dir or die "$whoami: chdir $dir failed: $!\n";

open(FIND,
     "find . \\( -name '.*.rej' -o -name '*.rej' " .
     "-o -name '.*#' -o -name '*#' \\) -print |") or
    die "$whoami: can't run find: $!\n";
my @rejects = ();
while(<FIND>)
{
    chop;
    push(@rejects, $_);
}
close(FIND);

if (scalar(@rejects))
{
    print "Rejects:\n";
    for (@rejects)
    {
	print "   ", $_, "\n";
    }
    exit 0;
}
else
{
    print "No rejects found; removing originals.\n";
    system("find . \\( -name '.*.orig' -o -name '*.orig' " .
	   "-o -name '.*~' -o -name '*~' \\) -exec rm -f {} \\; -print");
}