more convenient to report the lock name
authorTony Finch <dot@dotat.at>
Fri, 14 Nov 2014 15:58:11 +0000 (15:58 +0000)
committerTony Finch <dot@dotat.at>
Fri, 14 Nov 2014 15:58:11 +0000 (15:58 +0000)
sccscheck

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