Permalink
Browse files

Tweak literal dumping (use Data::Dump::OneLine)

  • Loading branch information...
1 parent 964d765 commit 0845b5704fa2a102598b698f0c773963bed14459 Steven Haryanto (on Asus Zenbook) committed Feb 2, 2013
Showing with 3 additions and 3 deletions.
  1. +2 −3 devscripts/gen-type-spectest
  2. +1 −0 dist.ini
@@ -9,6 +9,7 @@ use vars qw($VERSION);
use Data::Clone;
use File::Slurp;
use YAML::XS qw(Dump);
+use Data::Dump::OneLine qw(dump1);
# VERSION
unless (defined $VERSION) {
@@ -23,9 +24,7 @@ sub _l {
my $d = shift;
return "undefined value" if !defined($d);
return $d unless ref($d);
- my $res = Dump($_);
- $res =~ s/\s+\z//s;
- $res;
+ return dump1($d);
}
sub gen_type_check_tests {
View
@@ -22,5 +22,6 @@ DefHash=1.0.1
; for gen-type-spec-test script
;Data::Clone=0
+Data::Dump::OneLine=0
File::Slurp=0
YAML::XS=0

0 comments on commit 0845b57

Please sign in to comment.