sccscheck: detect SCCS locks
authorTony Finch <dot@dotat.at>
Fri, 14 Nov 2014 15:18:44 +0000 (15:18 +0000)
committerTony Finch <dot@dotat.at>
Fri, 14 Nov 2014 15:18:44 +0000 (15:18 +0000)
sccscheck

index 2783f03..9d133d8 100755 (executable)
--- a/sccscheck
+++ b/sccscheck
@@ -39,6 +39,9 @@ sub found {
                                print "SCCS UNGET $_\n";
                        }
                }
+               when (m{^(.*)/SCCS/p\.([^/]+)$}s) {
+                       print "SCCS LOCK $1/$2\n";
+               }
                when (m{^(.*)/([^/]+)(\.orig|~)$}s) {
                        my $sccs = "$1/SCCS/s.$2";
                        when (-f $sccs) {