[logos] Kill the Data::Dumper warning.

From: Dustin L. Howett <dustin@howett.net> git-svn-id: http://svn.howett.net/svn/theos/trunk@632 4410221e-0ddf-4ce3-99c0-2db6c0dbc727
DHowett · a05354a7b9839a5dce48f7c07114f30dd195b537 · DHowett committed Dec 24, 2013 · Dec 24, 2013 · a05354a
1 parent 0240cdf
commit a05354a7b9839a5dce48f7c07114f30dd195b537
Unified Split

Showing with 0 additions and 7 deletions.

+0 −7  bin/logos.pl
@@ -610,13 +610,6 @@ package main;
 	if($main::CONFIG{"dump"} eq "yaml") {
 		load 'YAML::Syck';
 		print STDERR YAML::Syck::Dump($dumphref);
-	} elsif($main::CONFIG{"dump"} eq "perl") {
-		load 'Data::Dumper';
-		$Data::Dumper::Purity = 1;
-
-		my @k; my @v;
-		map {push(@k,$_); push(@v, $dumphref->{$_});} keys %$dumphref;
-		print STDERR Data::Dumper->Dump(\@v, \@k);
 	}
 	#print STDERR Data::Dumper->Dump([\@groups, \@patches, \@lines, \%::CONFIG], [qw(groups patches lines config)]);
 }