From 288cae4986b6a70ef859d13fe6819a84ccc18aeb Mon Sep 17 00:00:00 2001
From: Emil Williams <emilemilemil@cock.li>
Date: Thu, 15 May 2025 18:02:45 -0600
Subject: [PATCH] --

---
 perl/Triple.pm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 140c97d..0707627 100644
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -76,12 +76,11 @@ sub Triple::main {
             }
 
             open(my $fh, '>>', 'post_dump.txt') or die;
-            print $fh $body;
-            print $fh "\r\n";
-            close $fh;
-
+            # print $fh $body;
+            # print $fh "\r\n";
             my %post = parse_post($body);
             print $fh Dumper %post;
+            close $fh;
 
             $status   = '302 Found';
             $location = $vars->{"uri"};
-- 
2.39.5