From 352abdcf4b4f60ee9af762cf53210fd177928912 Mon Sep 17 00:00:00 2001
From: Brad Clawsie <brad@b7j0c.org>
Date: Tue, 17 Jan 2023 15:29:31 -0600
Subject: [PATCH] regex modifiers

---
 lib/Lang/Go/Mod.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/Lang/Go/Mod.pm b/lib/Lang/Go/Mod.pm
index ad25a25..6532ba7 100644
--- a/lib/Lang/Go/Mod.pm
+++ b/lib/Lang/Go/Mod.pm
@@ -36,7 +36,7 @@ sub parse_go_mod {
     }
     my ( $excludes, $replaces, $requires, $retracts ) = ( 0, 0, 0, 0 );
 
-    LINE: for my $line ( split /\n/msx, $go_mod_content ) {
+    LINE: for my $line ( split /\n/x, $go_mod_content ) {
         next LINE if ( $line =~ /^\s*$/x );
         if ($excludes) {
             if ( $line =~ /^\s*[)]\s*$/x ) {
@@ -188,7 +188,7 @@ sub parse_go_mod {
 sub _parse_retract {
     my $retract = shift || croak 'missing retract string';
 
-    if ( $retract =~ /^\s*\[(.+?)\](.*)$/ox ) {    # version-range
+    if ( $retract =~ /^\s*\[(.+?)\](.*)$/x ) {    # version-range
         my $range = $1;
         my $rest  = $2;
 
@@ -197,7 +197,7 @@ sub _parse_retract {
         my @versions = split( /,/x, $range );
         my $count    = 0;
         for my $version (@versions) {
-            return undef unless ( $version =~ /\S+/ox );
+            return undef unless ( $version =~ /\S+/x );
             $count++;
         }
         return undef if ( $count != 2 );
@@ -208,7 +208,7 @@ sub _parse_retract {
         }
         return '[' . $range . ']';
     }
-    elsif ( $retract =~ /^\s*(\S+)(.*)$/ox ) {    # single version
+    elsif ( $retract =~ /^\s*(\S+)(.*)$/x ) {    # single version
         my $version = $1;
         my $rest    = $2;
 
-- 
2.38.5