From 77d0de6e15700d0e321c14b8f488cc2affc3bdca Mon Sep 17 00:00:00 2001
From: Andreas Hrubak <ad132454@uucp.hu>
Date: Mon, 2 Sep 2024 22:25:14 +0200
Subject: [PATCH] rewrite header.sed in perl because sed wont handle multiple
 files for me

---
 user-tools/Makefile.lists.mk |  2 +-
 user-tools/header            | 29 +++++++++++++++++++++++++++++
 user-tools/header.sed        | 16 ----------------
 3 files changed, 30 insertions(+), 17 deletions(-)
 create mode 100755 user-tools/header
 delete mode 100755 user-tools/header.sed

diff --git a/user-tools/Makefile.lists.mk b/user-tools/Makefile.lists.mk
index 686b218..ce5b3bf 100644
--- a/user-tools/Makefile.lists.mk
+++ b/user-tools/Makefile.lists.mk
@@ -56,7 +56,7 @@ TOOLS ?= \
   git-submodule-auto-add \
   grepdatetime \
   Head \
-  header.sed \
+  header \
   hlcal \
   hlncal \
   htmlentities \
diff --git a/user-tools/header b/user-tools/header
new file mode 100755
index 0000000..0d06ac6
--- /dev/null
+++ b/user-tools/header
@@ -0,0 +1,29 @@
+#!/usr/bin/env perl
+
+=pod
+
+=head1 NAME
+
+header - Echo the input stream up to the first empty line (usual end-of-header marker)
+
+=head1 SYNOPSIS
+
+header <FILE> [<FILE> [<FILE> [...]]]
+
+=cut
+
+
+for my $idx (0..$#ARGV)
+{
+	my $path = $ARGV[$idx];
+	open my $fh, '<', $path;
+	while(<$fh>)
+	{
+		last if /^\r?\n?$/;
+		print;
+	}
+	if($idx < $#ARGV)
+	{
+		print "\n";
+	}
+}
diff --git a/user-tools/header.sed b/user-tools/header.sed
deleted file mode 100755
index a854543..0000000
--- a/user-tools/header.sed
+++ /dev/null
@@ -1,16 +0,0 @@
-#!/bin/sh
-
-exec sed -e '/^\r\?$/q' --separate "$@"
-
-
-true <<EOF
-
-=pod
-
-=head1 NAME
-
-header.sed - Echo the input stream up to the first empty line (usual end-of-header marker)
-
-=cut
-
-EOF
-- 
2.11.4.GIT