--- trunk/pgsql-git-backup.pl	2008/09/11 19:59:52	84
+++ trunk/pgsql-git-backup.pl	2008/09/11 20:16:05	85
@@ -8,6 +8,7 @@
 use strict;
 
 use Getopt::Long;
+use Fatal qw/:void open close mkdir chdir/;
 my $git = '/tmp/pgsql-git-backup/';
 my $verbose = 0;
 my $database = '';
@@ -32,7 +33,7 @@
 }
 
 sub write_chunk {
-	my $path = sprintf("%s/%02d%s.sql", $database, $nr++, $name);
+	my $path = sprintf("%s/%04d%s.sql", $database, $nr++, $name);
 	open(my $fh, '>', $path) or die "can't open file $path: $!";
 	print $fh $d;
 	close($fh);
@@ -40,15 +41,15 @@
 	git "git-add '$path'";
 }
 
-if ( ! -e $git ) {
-	mkdir $git or die "can't create $git: $!";
-	git 'git-init-db';
-}
+mkdir $git if ! -e $git;
+
+chdir $git;
+warn "## using $git\n" if $verbose;
 
-chdir($git) or die "can't chdir $git: $!";
+git 'git-init-db' if ! -e "$git/.git";
 
 if ( ! -e $database ) {
-	mkdir $database or die "can't create $database: $!";
+	mkdir $database;
 #	git "git-add '$database'";
 #	git "git-commit -m 'added $database directory' $database";
 }