[Git][archlinux/packaging/packages/perl][main] parse IO:Socket::IP version of perl 5.40 release

[Antonio Rojas (@arojas)]

Antonio Rojas pushed to branch main at Arch Linux / Packaging / Packages / perl


Commits:
d23c56d5 by freggel.doe at 2024-09-05T09:36:05+02:00
parse IO:Socket::IP version of perl 5.40 release

- - - - -


1 changed file:

- patchprov


Changes:

=====================================
patchprov
=====================================
@@ -96,12 +96,11 @@ sub scrape_verln
     my($srcpath) = @_;
     open my $fh, '<', $srcpath or die "open: $!";
     while(my $ln = <$fh>){
-        if($ln =~ s/^.*VERSION *=>? *//){
-            close $fh;
-            return $ln;
-        }elsif($ln =~ s/^package (\w|:)+ ((\d|.)+);/$2/){
-            close $fh;
-            return $ln;
+        if($ln =~ s/^.*VERSION *=>? *// || $ln =~ s/^package \w+(?:::\w+)* 
*//){
+            if ($ln =~ m/^[^#;]/) {
+                close $fh;
+                return $ln;
+            }
         }
     }
     close $fh;



View it on GitLab: 
https://gitlab.archlinux.org/archlinux/packaging/packages/perl/-/commit/d23c56d5727d2507d1bd6a8464799b0eaf27db16

-- 
View it on GitLab: 
https://gitlab.archlinux.org/archlinux/packaging/packages/perl/-/commit/d23c56d5727d2507d1bd6a8464799b0eaf27db16
You're receiving this email because of your account on gitlab.archlinux.org.