--- trunk/scripts/dump_isisdb.pl	2006/07/07 21:07:44	49
+++ trunk/scripts/dump_isisdb.pl	2006/07/07 21:11:01	50
@@ -1,11 +1,20 @@
 #!/usr/bin/perl -w
 
 use strict;
-#use blib;
+use blib;
 
 use Biblio::Isis;
 use Getopt::Std;
-use Data::Dumper;
+
+BEGIN {
+	eval "use Data::Dump";
+
+	if (! $@) {
+		*Dumper = *Data::Dump::dump;
+	} else {
+		use Data::Dumper;
+	}
+}
 
 my %opt;
 getopts('dn:', \%opt);
@@ -14,7 +23,7 @@
 
 my $isis = Biblio::Isis->new (
 	isisdb => $isisdb,
-	debug => $opt{'d'},
+	debug => $opt{'d'} ? 2 : 0,
 	include_deleted => 1,
 #	read_fdt => 1,
 );