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…
Reference in a new issue