bakabtw/packages
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

[packages] wing: fix illegal modification of constant value triggered in at least perl 5.8.8, observed on CentOS 5.6

Browse Source 
git-svn-id: svn://svn.openwrt.org/openwrt/packages@27462 3c298f89-4303-0410-b956-a3cf2f4a3e73
This commit is contained in:
jow 2011-07-05 17:39:51 +00:00
parent e9bb9b30d8
commit 674f67b2aa
2 changed files with 25 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
net/wing/patches/010-libc-compat.patch
View File

@ -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>

23
net/wing/patches/011-perl-compat.patch Normal file
View File

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