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 | 73f6b84e9cfd045d68e30727a57dbd94ad8ae397 (patch) | |
| tree | a59c6c02b7d0240153c5bcb2ea56ae9f0c999b38 /doc/rfc/rfctags.pl | |
| parent | Publish "reusing tags" (diff) | |
| download | src-73f6b84e9cfd045d68e30727a57dbd94ad8ae397.tar.gz src-73f6b84e9cfd045d68e30727a57dbd94ad8ae397.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 |