From 9bee89ad18507ca0bbb763bd202cca1392df9461 Mon Sep 17 00:00:00 2001
From: James Smith <js5@sanger.ac.uk>
Date: Fri, 14 Nov 2008 16:14:40 +0000
Subject: [PATCH] added Terse call
---
modules/Bio/EnsEMBL/DBSQL/BaseAdaptor.pm | 19 ++++++++++---------
1 file changed, 10 insertions(+), 9 deletions(-)
diff --git a/modules/Bio/EnsEMBL/DBSQL/BaseAdaptor.pm b/modules/Bio/EnsEMBL/DBSQL/BaseAdaptor.pm
index 8b60514586..a7acfa8258 100755
--- a/modules/Bio/EnsEMBL/DBSQL/BaseAdaptor.pm
+++ b/modules/Bio/EnsEMBL/DBSQL/BaseAdaptor.pm
@@ -712,15 +712,16 @@ sub _objs_from_sth {
}
sub dump_data {
- my $self = shift;
- my $data = shift;
-
- my $dumper = Data::Dumper->new([$data]);
- $dumper->Indent(0);
- my $dump = $dumper->Dump();
- #$dump =~ s/'/\\'/g;
- $dump =~ s/^\$VAR1 = //;
- return $dump;
+ my $self = shift;
+ my $data = shift;
+
+ my $dumper = Data::Dumper->new([$data]);
+ $dumper->Indent(0);
+ $dumper->Terse(1);
+ my $dump = $dumper->Dump();
+# $dump =~ s/'/\\'/g;
+# $dump =~ s/^\$VAR1 = //;
+ return $dump;
}
sub get_dumped_data {
--
GitLab