perl5db on miniperl

[p5sagit/p5-mst-13.2.git] / lib / unicore / mktables

diff --git a/lib/unicore/mktables b/lib/unicore/mktables
index 4200366..006b9ef 100644 (file)
--- a/lib/unicore/mktables
+++ b/lib/unicore/mktables
@@ -45,6 +45,13 @@ while (@ARGV)
     } elsif ($arg eq '-w') {
         $AlwaysWrite = 1;      # update the files even if they havent changed
         $FileList = "";
+    } elsif ($arg eq '-check') {
+        my $this = shift @ARGV;
+        my $ok = shift @ARGV;
+        if ($this ne $ok) {
+            print "Skipping as check params are not the same.\n";
+            exit(0);
+        }
     } elsif ($arg eq '-maketest') {
         $MakeTestScript = 1;
     } elsif ($arg eq '-makelist') {
@@ -61,7 +68,8 @@ while (@ARGV)
             "  -maketest   : Make test script\n",
             "  -makelist   : Rewrite the file list based on current setup\n",
             "  -L filelist : Use this file list, (defaults to $0)\n",
-            "  -C dir      : Change to this directory before proceding\n";   
+            "  -C dir      : Change to this directory before proceeding\n",
+            "  -check A B  : Executes only if A and B are the same\n";   
     }
 }