--- bin/PrepareSnapshot	2003/08/05 21:10:28	1.4
+++ bin/PrepareSnapshot	2003/08/05 21:43:24	1.5
@@ -41,6 +41,13 @@
     exit ((scalar(@ARGV) < 2)? 1:0);
 }
 
+$RServ::quiet = !$verbose;
+if ($debug) {
+	$RServ::quiet = 0;
+	no warnings 'vars';
+	$RServ::debug = $debug;
+}
+
 my $master = $ARGV[0] || "master";
 my $slave = $ARGV[1] || "slave";