From 674f67b2aa46e0c2e19c118ce5b104595658a44b Mon Sep 17 00:00:00 2001
From: jow <jow@3c298f89-4303-0410-b956-a3cf2f4a3e73>
Date: Tue, 5 Jul 2011 17:39:51 +0000
Subject: [PATCH] [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
---
 net/wing/patches/010-libc-compat.patch |  6 ++----
 net/wing/patches/011-perl-compat.patch | 23 +++++++++++++++++++++++
 2 files changed, 25 insertions(+), 4 deletions(-)
 create mode 100644 net/wing/patches/011-perl-compat.patch

diff --git a/net/wing/patches/010-libc-compat.patch b/net/wing/patches/010-libc-compat.patch
index c656b2b19..fa84ac8c9 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 <click/radiotap_iter.h>
  #include <click/platform.h>
diff --git a/net/wing/patches/011-perl-compat.patch b/net/wing/patches/011-perl-compat.patch
new file mode 100644
index 000000000..2c4a7d91e
--- /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";
+ }
+