diff options
| -rwxr-xr-x | rf | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -51,12 +51,13 @@ for (@lines) { $i++; # Inline reference if (/^\.R([fx]) +(.*)/) { + my ($suffix, $prefix, @points); my ($fld, $def) = ($1, $2); - $def =~ s/ ([.,:;\])]) ?([\[(])?$//; - my ($suffix, $prefix) = ($1, $2); + if ($def =~ s/ ([.,:;\])]) ?([\[(])?$//) { + ($suffix, $prefix) = ($1, $2); + } my $winner = 0; my @words = split /\s/, $def; - my @points; # replace '' with preceding word for (@words) { |