From 4d2d891b99840e4dc73f8d5f7ec45a5d616db59d Mon Sep 17 00:00:00 2001 From: Corinna Vinschen Date: Tue, 15 Jan 2019 13:19:41 +0100 Subject: Cygwin: gentls_offsets: Remove obsolte 'o' regex option Signed-off-by: Corinna Vinschen --- winsup/cygwin/gentls_offsets | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/winsup/cygwin/gentls_offsets b/winsup/cygwin/gentls_offsets index 745ea27a0..59080c331 100755 --- a/winsup/cygwin/gentls_offsets +++ b/winsup/cygwin/gentls_offsets @@ -26,21 +26,21 @@ substr($tls, 0, length($pre)) = ''; $pre .= "\n//*/"; $tls =~ s%/\*\s*gentls_offsets.*?/\*\s*gentls_offsets\s*\*/%%ogs; foreach ($tls =~ /^.*\n/mg) { - /^}|\s*(?:typedef|const)/o and do { + /^}|\s*(?:typedef|const)/ and do { $def .= $_ ; next; }; $def .= $_ if $struct; - if (!s/;.*$//o) { - if (!$struct && /^\s*(?:struct|class)\s*([a-z_0-9]+)/o) { + if (!s/;.*$//) { + if (!$struct && /^\s*(?:struct|class)\s*([a-z_0-9]+)/) { $def .= $_; $struct = $1 } next; } - s/(?:\[[^\]]*\]|struct|class)//o; - s/^\s+\S+\s+//o; - s/[\*\s()]+//go; + s/(?:\[[^\]]*\]|struct|class)//; + s/^\s+\S+\s+//; + s/[\*\s()]+//g; for my $f (split(/,/)) { push(@fields, $f); } -- cgit v1.2.3