Debugging is helpful

GarnerCorp · Jan 25, 2024 · 339ccb3 · 339ccb3
1 parent 0b91906
commit 339ccb3
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/extract-errors.pl b/extract-errors.pl
@@ -1,16 +1,17 @@
 #!/usr/bin/env perl
 my $source_file = $ENV{source};
+my $errors_file = $ENV{errors};
 my $new_source_file = "$source_file.new";
 open my $source_in, "<", $source_file;
 open my $source_out, ">", $new_source_file;
-open my $errors, ">>", $source_file;
+open my $errors, ">>", $errors_file;
 my $found_error=0;
 while (<$source_in>) {
   if ($found_error) {
-    print STDERR "[$source_file -> $errors] $_";
+    print STDERR "[$source_file -> $errors_file] $_";
     print $errors $_;
   } elsif (/^error:/) {
-    print STDERR "[$source_file --> $errors] $_";
+    print STDERR "[$source_file --> $errors_file] $_";
     $found_error=1;
     print $errors $_;
   } else {