packages/net/wing/patches/011-perl-compat.patch

24 lines
605 B
Diff
Raw Normal View History

--- a/doc/click-elem2man
+++ b/doc/click-elem2man
@@ -227,14 +227,15 @@ sub nroff_fixfP ($$) {
}
sub nroff_manref ($$$$) {
- map { $_ = "\"$_\"" if (s/\"/\\(dq/g) } @_;
+ my @x = @_;
+ map { $_ = "\"$_\"" if (s/\"/\\(dq/g) } @x;
my($x);
- if ($_[0] eq "") {
- $x = "\n.M " . $_[1] . " " . $_[2];
+ if ($x[0] eq "") {
+ $x = "\n.M " . $x[1] . " " . $x[2];
} else {
- $x = "\n.RM " . $_[0] . " " . $_[1] . " " . $_[2];
+ $x = "\n.RM " . $x[0] . " " . $x[1] . " " . $x[2];
}
- $x .= " " . $_[3] if $_[3] ne "";
+ $x .= " " . $x[3] if $x[3] ne "";
$x . "\n";
}