App::Dthumb::Data: Exactly preserve text files, add test for it

1 files changed, 7 insertions, 3 deletions

diff --git a/lib/App/Dthumb/Data.pm.PL b/lib/App/Dthumb/Data.pm.PL
index a686c6d..ba99c82 100644
--- a/lib/App/Dthumb/Data.pm.PL
+++ b/lib/App/Dthumb/Data.pm.PL
@@ -67,19 +67,23 @@ sub get {
 		die("No such data: ${name}\n");
 	}
 
+	$data = ${$data};
+
+	chomp($data);
+
 	if ($name =~ qr{ \. (png | gif) $ }ox) {
-		return decode_base64(${$data});
+		return decode_base64($data);
 	}
 
 	while (my ($key, $value) = each %{$self->{replace}}) {
-		${$data} =~ s{
+		$data =~ s{
 			( \<\!-- | /\* )
 				\s+ \$ $key \s+
 			( --\> | \*/ )
 		}{$value}gx;
 	}
 
-	return ${$data};
+	return $data;
 }
 
 1;