packages/net/wing/patches/011-perl-compat.patch
jow 674f67b2aa [packages] wing: fix illegal modification of constant value triggered in at least perl 5.8.8, observed on CentOS 5.6
git-svn-id: svn://svn.openwrt.org/openwrt/packages@27462 3c298f89-4303-0410-b956-a3cf2f4a3e73
2011-07-05 17:39:51 +00:00

24 lines
605 B
Diff

--- 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";
}