diff --git a/.github/workflows/linux.yml b/.github/workflows/linux.yml index 7b796bb..9ffcdae 100644 --- a/.github/workflows/linux.yml +++ b/.github/workflows/linux.yml @@ -17,7 +17,9 @@ jobs: fail-fast: false matrix: cip_tag: - - "5.37" + - "5.41" + - "5.40" + - "5.38" - "5.36" - "5.34" - "5.32" diff --git a/.gitignore b/.gitignore index 4056017..a15fae3 100644 --- a/.gitignore +++ b/.gitignore @@ -2,4 +2,7 @@ WebService-Dist-* /.build/ *.swp - +/WebService-Dist-* +/.build +*.old +*.orig diff --git a/.vscode/settings.json b/.vscode/settings.json new file mode 100644 index 0000000..578c5ee --- /dev/null +++ b/.vscode/settings.json @@ -0,0 +1,6 @@ +{ + "pls.perlcritic.perlcriticrc": "perlcriticrc", + "pls.inc": [ + "$ROOT_PATH/lib" + ] +} diff --git a/dist.ini b/dist.ini index 8b3c410..4b23487 100644 --- a/dist.ini +++ b/dist.ini @@ -2,11 +2,11 @@ name = WebService-Dist author = Graham Ollis license = Perl_5 copyright_holder = Graham Ollis -copyright_year = 2021-2022 +copyright_year = 2021-2024 version = 0.02 [@Author::Plicease] -:version = 2.69 +:version = 2.79 release_tests = 1 installer = Author::Plicease::MakeMaker github_user = uperl diff --git a/lib/WebService/Dist.pm b/lib/WebService/Dist.pm index f245e57..49d2800 100644 --- a/lib/WebService/Dist.pm +++ b/lib/WebService/Dist.pm @@ -91,8 +91,10 @@ sub foreign_package_exists ($vendor, $name) } elsif($vendor eq 'openbsd') { - $url = "https://openports.se/devel/$package_name"; + $url = "https://openports.pl/path/devel/$package_name"; my $res = $ua->get($url); + # lol this server returns a 404 as a 200 + return '' if $res->code == 200 && $res->decoded_content =~ /Error 404|Not Found/; die $res->status_line unless $res->is_success; return !scalar $res->decoded_content =~ /The package you requested does not exist/ } @@ -102,7 +104,7 @@ sub foreign_package_exists ($vendor, $name) } my $res = $ua->head($url); - return $res->is_success; + return !!$res->is_success; } 1;