*2rcs: log command line
authorTony Finch <dot@dotat.at>
Fri, 12 Aug 2016 15:07:55 +0000 (16:07 +0100)
committerTony Finch <dot@dotat.at>
Fri, 12 Aug 2016 15:07:55 +0000 (16:07 +0100)
files2rcs
sccs2rcs1

index 59702e1..087df89 100755 (executable)
--- a/files2rcs
+++ b/files2rcs
@@ -37,6 +37,7 @@ sub sysx {
 }
 
 usage unless @ARGV > 1;
+warn "\e[34m$0 @ARGV\e[0m\n";
 
 our $usermap;
 if ($ARGV[0] =~ m{^-m(.*)}) {
index 57332fb..b27e666 100755 (executable)
--- a/sccs2rcs1
+++ b/sccs2rcs1
@@ -60,6 +60,7 @@ if ($ARGV[0] =~ m{^-a(.+)$}) {
 }
 
 usage unless @ARGV == 1;
+warn "\e[34m$0 @ARGV\e[0m\n";
 
 my $ssrc = shift;
 usage unless $ssrc =~ m{^(.+/)?s\.([^/]+)$}s;