--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index d1ac0b27364341b9e7752ec49e8ebc2a9e4111aa..34e49938e147dd8ef65fbe3800ecf000a3eb45fd 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -65,7 +65,8 @@ sub Triple::main {
             }
 
             open(my $fh, '>>', 'post_dump.txt') or die;
-            print $fh chomp($body) . '\n';
+            chomp $body;
+            print $fh $body . '\n';
             close $fh;
 
             $status   = '302 Found';