diff options
author | June McEnroe <june@causal.agency> | 2021-01-18 16:56:05 -0500 |
---|---|---|
committer | June McEnroe <june@causal.agency> | 2021-01-18 16:56:05 -0500 |
commit | 3ad036b9a04811da71977fac5dc7ab6971f622bc (patch) | |
tree | cf8d976262922ce59df5b2053c385a64e86c9e10 /doc/rfc/rfctags.pl | |
parent | Publish "reusing tags" (diff) | |
download | src-3ad036b9a04811da71977fac5dc7ab6971f622bc.tar.gz src-3ad036b9a04811da71977fac5dc7ab6971f622bc.zip |
Don't compress RFCs, add rfc(1) command
Diffstat (limited to 'doc/rfc/rfctags.pl')
-rw-r--r-- | doc/rfc/rfctags.pl | 9 |
1 files changed, 3 insertions, 6 deletions
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 |