From 3ad036b9a04811da71977fac5dc7ab6971f622bc Mon Sep 17 00:00:00 2001
From: "C. McEnroe" <june@causal.agency>
Date: Mon, 18 Jan 2021 16:56:05 -0500
Subject: Don't compress RFCs, add rfc(1) command

---
 doc/rfc/rfctags.pl | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

(limited to 'doc/rfc/rfctags.pl')

diff --git a/doc/rfc/rfctags.pl b/doc/rfc/rfctags.pl
index 01324a0d..45e74f9a 100644
--- a/doc/rfc/rfctags.pl
+++ b/doc/rfc/rfctags.pl
@@ -1,14 +1,11 @@
+#!/usr/bin/env perl
 use strict;
 use warnings;
 use open ':encoding(ISO-8859-1)';
 
-use IO::Uncompress::Gunzip qw($GunzipError);
-
 ($,, $\) = ("\t", "\n");
-print '!_TAG_FILE_SORTED', 2, $0; # Promise to pipe this through sort -f
-for my $rfc (<*.txt.gz>) {
-	my $handle = new IO::Uncompress::Gunzip $rfc
-		or die "${rfc}: ${GunzipError}";
+for my $rfc (@ARGV) {
+	open my $handle, '<', $rfc or die "${rfc}: $!";
 	while (<$handle>) {
 		chomp;
 		# Section headings
-- 
cgit 1.4.1