Skip to content

Commit 01f1481

Browse files
committed
Accept incomplete arguments, for lazy ppl like me. :)
1 parent 55fa018 commit 01f1481

1 file changed

Lines changed: 8 additions & 3 deletions

File tree

bin/issuegen.pl

Lines changed: 8 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -24,15 +24,14 @@
2424
Draft: http://www.w3.org/TR/2013/WD-css-text-decor-3-20130103/
2525
Title: CSS Text Decoration Level 3
2626
... anything else you want here, except 4 dashes ...
27-
... note: known status codes are Accepted/OutOfScope/Invalid/Rejected/Retracted
2827
2928
----
3029
Issue 1.
3130
Summary: [summary]
3231
From: [name]
3332
Comment: [url]
3433
Response: [url]
35-
Closed: [status ... or replace this "Closed" line with "Open"]
34+
Closed: [Accepted/OutOfScope/Invalid/Rejected/Retracted ... or replace this "Closed" line with "Open"]
3635
Verified: [url]
3736
Resolved: Editorial/Bugfix (for obvious fixes)/Editors' discretion/[url to minutes]
3837
----
@@ -42,7 +41,13 @@
4241

4342
# Input/Output setup
4443
my $outFile = $inFile;
45-
$outFile =~ s/\.txt/\.html/;
44+
if ($inFile =~ /\.txt$/) {
45+
$outFile =~ s/\.txt/\.html/;
46+
}
47+
elsif ($inFile =~ /\.$/) { # tab completion case
48+
$inFile .= 'txt';
49+
$outFile .= 'html';
50+
}
4651
open IN, "<", $inFile || die "Cannot open $inFile: $!";
4752
open OUT, ">", $outFile || die "Cannot open $outFile: $!";
4853
$/ = "----\n";

0 commit comments

Comments
 (0)