From 10a2899fdb50b67d4645bcf14671ae11a6ca13c8 Mon Sep 17 00:00:00 2001
From: Jo-Philipp Wich <jow@openwrt.org>
Date: Tue, 5 Jul 2011 17:39:51 +0000
Subject: [PATCH] wing: fix illegal modification of constant value triggered in
 at least perl 5.8.8, observed on CentOS 5.6

SVN-Revision: 27462
---
 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";
+ }
+ 
-- 
2.30.2