From e9deca930024287572165b95cd280a8009c30b39 Mon Sep 17 00:00:00 2001
From: Jonas Smedegaard <dr@jones.dk>
Date: Sun, 31 Mar 2024 10:57:07 +0200
Subject: avoid custom argument in shebang, ignored when executed by explicit
 interpreter

---
 bin/hedgedoc2quarto | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/bin/hedgedoc2quarto b/bin/hedgedoc2quarto
index 23832ea..d2aacda 100755
--- a/bin/hedgedoc2quarto
+++ b/bin/hedgedoc2quarto
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -g
+#!/usr/bin/perl
 
 use v5.36;
 use strict;
@@ -30,10 +30,11 @@ and they support different subsets of Mermaid diagram code.
 
 =cut
 
+# slurp INFILE if passed as first argument, or else STDIN
 my ( $infile, $outfile, $bogus ) = @ARGV;
 die 'Too many arguments: expected INFILE and OUTFILE' if $bogus;
 @ARGV = ($infile) if $infile;
-my $content = <>;
+my $content = do { local $/ = undef; <> };
 
 $content
 	=~ s/^(?'fence'[``~]{3,})\s*\Kmermaid\n(?'type'gantt)\n(?'code'.*?\n)\k'fence'$/
-- 
cgit v1.2.3