--- trunk/pgsql-git-backup.pl	2008/09/11 18:44:04	82
+++ trunk/pgsql-git-backup.pl	2008/09/11 19:57:14	83
@@ -26,25 +26,31 @@
 my $name = $database;
 my $d;
 
+sub git {
+	my $cmd = shift or die "no cmd?";
+	system($cmd) == 0 or die "$cmd FAILED $?";
+}
+
 sub write_chunk {
 	my $path = sprintf("%s/%02d%s.sql", $database, $nr++, $name);
 	open(my $fh, '>', $path) or die "can't open file $path: $!";
 	print $fh $d;
 	close($fh);
 	warn ">> $path ", -s $path, "\n" if $verbose;
-	system "git-add '$path'";
+	git "git-add '$path'";
 }
 
 if ( ! -e $git ) {
 	mkdir $git or die "can't create $git: $!";
-	chdir $git;
-	system 'git-init-db';
+	git 'git-init-db';
 }
 
+chdir($git) or die "can't chdir $git: $!";
+
 if ( ! -e $database ) {
 	mkdir $database or die "can't create $database: $!";
-#	system "git-add '$database'";
-#	system "git-commit -m 'added $database directory' $database";
+#	git "git-add '$database'";
+#	git "git-commit -m 'added $database directory' $database";
 }
 
 while(<STDIN>) {
@@ -59,4 +65,4 @@
 
 write_chunk;
 
-system "git-commit -m '$database' '$database'";
+git "git-commit -m '$database' '$database'";