Add blame options.
This commit is contained in:
		
							parent
							
								
									91127ef7b4
								
							
						
					
					
						commit
						edbbf4263c
					
				
					 1 changed files with 4 additions and 2 deletions
				
			
		|  | @ -92,19 +92,21 @@ use POSIX qw(strftime); | ||||||
| use Getopt::Long; | use Getopt::Long; | ||||||
| use Pod::Usage; | use Pod::Usage; | ||||||
| 
 | 
 | ||||||
| my($GIT_REPOSITORY_PATH, $OUTPUT_DIRECTORY, $CENTRAL_COMMIT, $FORK_LIMIT, $VERBOSE); | my($GIT_REPOSITORY_PATH, $OUTPUT_DIRECTORY, $CENTRAL_COMMIT, $FORK_LIMIT, $VERBOSE, @ADDITIONAL_BLAME_OPTS); | ||||||
| $VERBOSE = 0; | $VERBOSE = 0; | ||||||
| $FORK_LIMIT = 1; | $FORK_LIMIT = 1; | ||||||
| 
 | 
 | ||||||
| my $usage = "usage: $0  --repository=PATH --output-dir=DIR  [--central-commit=COMMIT-ID] [--fork-limit=NUMBER [--verbose[=LEVEL]]\n"; | my $usage = "usage: $0  --repository=PATH --output-dir=DIR  [--central-commit=COMMIT-ID] [--fork-limit=NUMBER [--verbose[=LEVEL]]\n"; | ||||||
| unless (GetOptions("repository=s" => \$GIT_REPOSITORY_PATH, | unless (GetOptions("repository=s" => \$GIT_REPOSITORY_PATH, | ||||||
|                    "output-dir=s" => \$OUTPUT_DIRECTORY, |                    "output-dir=s" => \$OUTPUT_DIRECTORY, | ||||||
|            "verbose:+" => \$VERBOSE, |                    "verbose:+" => \$VERBOSE, | ||||||
|  |                    "--blame-opts=s" => \@ADDITIONAL_BLAME_OPTS, | ||||||
|            "central-commit:s" => \$CENTRAL_COMMIT, |            "central-commit:s" => \$CENTRAL_COMMIT, | ||||||
|                    "fork-limit:i" => \$FORK_LIMIT)) { |                    "fork-limit:i" => \$FORK_LIMIT)) { | ||||||
|   print STDERR $usage; |   print STDERR $usage; | ||||||
|   exit 1; |   exit 1; | ||||||
| } | } | ||||||
|  | 
 | ||||||
| if (not defined $GIT_REPOSITORY_PATH) { | if (not defined $GIT_REPOSITORY_PATH) { | ||||||
|   print STDERR "--repository is a required command line argument.\n"; |   print STDERR "--repository is a required command line argument.\n"; | ||||||
|   print STDERR $usage; |   print STDERR $usage; | ||||||
|  |  | ||||||
		Loading…
	
	Add table
		
		Reference in a new issue
	
	 Bradley M. Kuhn
						Bradley M. Kuhn