exit on wrong number of args.
This commit is contained in:
		
							parent
							
								
									f17527a23e
								
							
						
					
					
						commit
						453caf26bf
					
				
					 1 changed files with 5 additions and 0 deletions
				
			
		|  | @ -7,6 +7,11 @@ use DBI; | |||
| use Encode qw(encode decode); | ||||
| use Supporters; | ||||
| 
 | ||||
| if (@ARGV != 2) { | ||||
|   print STDERR "usage: $0 <OLD_SUPPORTERS_SQLITE_DB_FILE> <NEW_SUPPORTERS_SQLITE_DB_FILE>\n"; | ||||
|   exit 1; | ||||
| } | ||||
| 
 | ||||
| my($OLD_SUPPORTERS_SQLITE_DB_FILE, $NEW_SUPPORTERS_SQLITE_DB_FILE) = @ARGV; | ||||
| 
 | ||||
| my $dbhOld = DBI->connect("dbi:SQLite:dbname=$OLD_SUPPORTERS_SQLITE_DB_FILE", "", "", | ||||
|  |  | |||
		Loading…
	
	Add table
		
		Reference in a new issue
	
	 Bradley M. Kuhn
						Bradley M. Kuhn