only match ~ for backup files, not .orig
authorTony Finch <dot@dotat.at>
Wed, 19 Nov 2014 13:49:11 +0000 (13:49 +0000)
committerTony Finch <dot@dotat.at>
Wed, 19 Nov 2014 13:49:11 +0000 (13:49 +0000)
sccscheck

index 043056e..15d24f2 100755 (executable)
--- a/sccscheck
+++ b/sccscheck
@@ -48,7 +48,7 @@ sub found {
                when (m{^(.*)/SCCS/p\.([^/]+)$}s) {
                        print "SCCS LOCK $_\n";
                }
-               when (m{^(.*)/([^/]+)(\.orig|~)$}s) {
+               when (m{^(.*)/([^/]+)~$}s) {
                        my $sccs = "$1/SCCS/s.$2";
                        when (_f $sccs) {
                                # was the backup checked in?