[packages] wing: fix illegal modification of constant value triggered in at least...

SVN-Revision: 27462

diff --git a/net/wing/patches/010-libc-compat.patch b/net/wing/patches/010-libc-compat.patch
index c656b2b191560ce5ccc167fbeb2b926d8cc2fc37..fa84ac8c99f6a77b0b040bd44a09bb1361316c4f 100644 (file)
--- 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 (file)
index 0000000..2c4a7d9
--- /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";
+ }
+