r1399@llin: dpavlin | 2007-10-31 11:19:39 +0100
[webpac2] / t / 2-input-excel.t
index 465fed3..9b091d3 100755 (executable)
@@ -6,7 +6,7 @@ use Cwd qw/abs_path/;
 use blib;
 use strict;
 
-use Data::Dumper;
+use Data::Dump qw/dump/;
 
 my $debug = 1;
 
@@ -42,6 +42,6 @@ foreach my $mfn ( 1 ... $size ) {
 
        cmp_ok($input->pos, '==', $mfn, "pos $mfn");
 
-       diag "rec: ", Dumper($rec), "\n";
+       diag "rec: ", dump($rec), "\n";
 }