improve sccscheck output slightly
authorTony Finch <dot@dotat.at>
Wed, 19 Nov 2014 11:41:09 +0000 (11:41 +0000)
committerTony Finch <dot@dotat.at>
Wed, 19 Nov 2014 11:41:09 +0000 (11:41 +0000)
sccscheck

index 7b433ec..24bdfca 100755 (executable)
--- a/sccscheck
+++ b/sccscheck
@@ -66,6 +66,7 @@ sub found {
                                        }
                                }
                                my $time1 = qx{sccs prs -r1.1 -d':D:.:T:' $qsccs};
+                               chomp $time1;
                                $time1 =~ s{^([789])}{19$1} or $time1 =~ s{^}{20};
                                if ($mtime lt $time1) {
                                        print "BACKSCCS PREDATE $mtime $time1 $_\n";
@@ -109,8 +110,8 @@ sub found {
                        }
                        my $qsccs = quotemeta $sccs;
                        my $qfile = quotemeta $_;
-                       system "sccs get -s -k -p $qsccs | diff -u - $qfile";
-                       print "DIFF $_\n" if $?;
+                       system "sccs get -s -k -p $qsccs | diff -u - $qfile >/dev/null";
+                       print "SCCS DIFF $_\n" if $?;
                }
        }
 }