Mercurial > hg > Members > anatofuz > nqp-cbc-tools

changeset 5:eda9948f5e5a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add usage for perl script
author anatofuz
date Mon, 05 Nov 2018 16:24:45 +0900
parents 8911efdfcc50
children f873ae65aab1
files logs2.pl
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/logs2.pl	Sun Nov 04 23:50:55 2018 +0900
+++ b/logs2.pl	Mon Nov 05 16:24:45 2018 +0900
@@ -1,12 +1,14 @@
 use strict;
 use warnings;
 
-my $originlog = shift;
-my $cbclog = shift;
+my $originlog = shift or die "use originlog cbclog";
+my $cbclog = shift or die "use originlog cbclog";
 
 open my $ofh, '<', $originlog;
 open my $cfh, '<', $cbclog;
 
+print "Originlog:CbClog\n";
+
 while (1){
   my $orig_line;
   do  {