fix warning and future error about unescaped left brace in perl regex

This commit is contained in:
naddy 2019-04-16 15:35:30 +00:00
parent 654eccd474
commit 305d688b62
11 changed files with 154 additions and 0 deletions

View File

@ -0,0 +1,14 @@
$OpenBSD: patch-etc_texi2pod_pl,v 1.1 2019/04/16 15:35:30 naddy Exp $
Index: etc/texi2pod.pl
--- etc/texi2pod.pl.orig
+++ etc/texi2pod.pl
@@ -311,7 +311,7 @@ while(<$inf>) {
@columns = ();
for $column (split (/\s*\@tab\s*/, $1)) {
# @strong{...} is used a @headitem work-alike
- $column =~ s/^\@strong{(.*)}$/$1/;
+ $column =~ s/^\@strong\{(.*)\}$/$1/;
push @columns, $column;
}
$_ = "\n=item ".join (" : ", @columns)."\n";

View File

@ -0,0 +1,14 @@
$OpenBSD: patch-contrib_texi2pod_pl,v 1.1 2019/04/16 15:35:30 naddy Exp $
Index: contrib/texi2pod.pl
--- contrib/texi2pod.pl.orig
+++ contrib/texi2pod.pl
@@ -316,7 +316,7 @@ while(<$inf>) {
@columns = ();
for $column (split (/\s*\@tab\s*/, $1)) {
# @strong{...} is used a @headitem work-alike
- $column =~ s/^\@strong{(.*)}$/$1/;
+ $column =~ s/^\@strong\{(.*)\}$/$1/;
push @columns, $column;
}
$_ = "\n=item ".join (" : ", @columns)."\n";

View File

@ -0,0 +1,14 @@
$OpenBSD: patch-etc_texi2pod_pl,v 1.1 2019/04/16 15:35:30 naddy Exp $
Index: etc/texi2pod.pl
--- etc/texi2pod.pl.orig
+++ etc/texi2pod.pl
@@ -311,7 +311,7 @@ while(<$inf>) {
@columns = ();
for $column (split (/\s*\@tab\s*/, $1)) {
# @strong{...} is used a @headitem work-alike
- $column =~ s/^\@strong{(.*)}$/$1/;
+ $column =~ s/^\@strong\{(.*)\}$/$1/;
push @columns, $column;
}
$_ = "\n=item ".join (" : ", @columns)."\n";

View File

@ -0,0 +1,14 @@
$OpenBSD: patch-contrib_texi2pod_pl,v 1.1 2019/04/16 15:35:30 naddy Exp $
Index: contrib/texi2pod.pl
--- contrib/texi2pod.pl.orig
+++ contrib/texi2pod.pl
@@ -314,7 +314,7 @@ while(<$inf>) {
@columns = ();
for $column (split (/\s*\@tab\s*/, $1)) {
# @strong{...} is used a @headitem work-alike
- $column =~ s/^\@strong{(.*)}$/$1/;
+ $column =~ s/^\@strong\{(.*)\}$/$1/;
push @columns, $column;
}
$_ = "\n=item ".join (" : ", @columns)."\n";

View File

@ -0,0 +1,14 @@
$OpenBSD: patch-contrib_texi2pod_pl,v 1.1 2019/04/16 15:35:30 naddy Exp $
Index: contrib/texi2pod.pl
--- contrib/texi2pod.pl.orig
+++ contrib/texi2pod.pl
@@ -314,7 +314,7 @@ while(<$inf>) {
@columns = ();
for $column (split (/\s*\@tab\s*/, $1)) {
# @strong{...} is used a @headitem work-alike
- $column =~ s/^\@strong{(.*)}$/$1/;
+ $column =~ s/^\@strong\{(.*)\}$/$1/;
push @columns, $column;
}
$_ = "\n=item ".join (" : ", @columns)."\n";

View File

@ -0,0 +1,14 @@
$OpenBSD: patch-etc_texi2pod_pl,v 1.1 2019/04/16 15:35:30 naddy Exp $
Index: etc/texi2pod.pl
--- etc/texi2pod.pl.orig
+++ etc/texi2pod.pl
@@ -311,7 +311,7 @@ while(<$inf>) {
@columns = ();
for $column (split (/\s*\@tab\s*/, $1)) {
# @strong{...} is used a @headitem work-alike
- $column =~ s/^\@strong{(.*)}$/$1/;
+ $column =~ s/^\@strong\{(.*)\}$/$1/;
push @columns, $column;
}
$_ = "\n=item ".join (" : ", @columns)."\n";

View File

@ -0,0 +1,14 @@
$OpenBSD: patch-contrib_texi2pod_pl,v 1.1 2019/04/16 15:35:30 naddy Exp $
Index: contrib/texi2pod.pl
--- contrib/texi2pod.pl.orig
+++ contrib/texi2pod.pl
@@ -316,7 +316,7 @@ while(<$inf>) {
@columns = ();
for $column (split (/\s*\@tab\s*/, $1)) {
# @strong{...} is used a @headitem work-alike
- $column =~ s/^\@strong{(.*)}$/$1/;
+ $column =~ s/^\@strong\{(.*)\}$/$1/;
push @columns, $column;
}
$_ = "\n=item ".join (" : ", @columns)."\n";

View File

@ -0,0 +1,14 @@
$OpenBSD: patch-doc_texi2pod_pl,v 1.1 2019/04/16 15:35:30 naddy Exp $
Index: doc/texi2pod.pl
--- doc/texi2pod.pl.orig
+++ doc/texi2pod.pl
@@ -311,7 +311,7 @@ while(<$inf>) {
@columns = ();
for $column (split (/\s*\@tab\s*/, $1)) {
# @strong{...} is used a @headitem work-alike
- $column =~ s/^\@strong{(.*)}$/$1/;
+ $column =~ s/^\@strong\{(.*)\}$/$1/;
push @columns, $column;
}
$_ = "\n=item ".join (" : ", @columns)."\n";

View File

@ -0,0 +1,14 @@
$OpenBSD: patch-contrib_texi2pod_pl,v 1.1 2019/04/16 15:35:30 naddy Exp $
Index: contrib/texi2pod.pl
--- contrib/texi2pod.pl.orig
+++ contrib/texi2pod.pl
@@ -316,7 +316,7 @@ while(<$inf>) {
@columns = ();
for $column (split (/\s*\@tab\s*/, $1)) {
# @strong{...} is used a @headitem work-alike
- $column =~ s/^\@strong{(.*)}$/$1/;
+ $column =~ s/^\@strong\{(.*)\}$/$1/;
push @columns, $column;
}
$_ = "\n=item ".join (" : ", @columns)."\n";

View File

@ -0,0 +1,14 @@
$OpenBSD: patch-libjava_classpath_doc_texi2pod_pl,v 1.1 2019/04/16 15:35:30 naddy Exp $
Index: libjava/classpath/doc/texi2pod.pl
--- libjava/classpath/doc/texi2pod.pl.orig
+++ libjava/classpath/doc/texi2pod.pl
@@ -311,7 +311,7 @@ while(<$inf>) {
@columns = ();
for $column (split (/\s*\@tab\s*/, $1)) {
# @strong{...} is used a @headitem work-alike
- $column =~ s/^\@strong{(.*)}$/$1/;
+ $column =~ s/^\@strong\{(.*)\}$/$1/;
push @columns, $column;
}
$_ = "\n=item ".join (" : ", @columns)."\n";

View File

@ -0,0 +1,14 @@
$OpenBSD: patch-contrib_texi2pod_pl,v 1.1 2019/04/16 15:35:30 naddy Exp $
Index: contrib/texi2pod.pl
--- contrib/texi2pod.pl.orig
+++ contrib/texi2pod.pl
@@ -314,7 +314,7 @@ while(<$inf>) {
@columns = ();
for $column (split (/\s*\@tab\s*/, $1)) {
# @strong{...} is used a @headitem work-alike
- $column =~ s/^\@strong{(.*)}$/$1/;
+ $column =~ s/^\@strong\{(.*)\}$/$1/;
push @columns, $column;
}
$_ = "\n=item ".join (" : ", @columns)."\n";