From: Jo-Philipp Wich Date: Tue, 5 Jul 2011 17:39:51 +0000 (+0000) Subject: [packages] wing: fix illegal modification of constant value triggered in at least... X-Git-Url: http://git.lede-project.org./?a=commitdiff_plain;h=558369edb744529b45f7df538de03c1e0d3374cf;p=openwrt%2Fsvn-archive%2Farchive.git [packages] wing: fix illegal modification of constant value triggered in at least perl 5.8.8, observed on CentOS 5.6 SVN-Revision: 27462 --- diff --git a/net/wing/patches/010-libc-compat.patch b/net/wing/patches/010-libc-compat.patch index c656b2b191..fa84ac8c99 100644 --- a/net/wing/patches/010-libc-compat.patch +++ b/net/wing/patches/010-libc-compat.patch @@ -1,7 +1,5 @@ -Index: wing-20110329/lib/radiotap.c -=================================================================== ---- wing-20110329.orig/lib/radiotap.c 2011-07-05 15:33:21.000000000 +0200 -+++ wing-20110329/lib/radiotap.c 2011-07-05 18:57:58.110124772 +0200 +--- a/lib/radiotap.c ++++ b/lib/radiotap.c @@ -16,6 +16,17 @@ #include #include diff --git a/net/wing/patches/011-perl-compat.patch b/net/wing/patches/011-perl-compat.patch new file mode 100644 index 0000000000..2c4a7d91ef --- /dev/null +++ b/net/wing/patches/011-perl-compat.patch @@ -0,0 +1,23 @@ +--- 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"; + } +