New upstream version 2.002005

Changes

 Revision history for Function-Parameters
 
+2.002005  2025-01-19
+          - When debugging, skip over invisible (generated) parameter
+            initialization code even if single-step mode is active.
+          - Move repository and bugtracker to <https://codeberg.org>.
+
 2.002004  2023-07-15
           - Remove 'perl -T' from tests. This way we can run on perls compiled
             without support for taint mode. The test didn't actually care about

META.json

@@ -68,12 +68,15 @@
    },
    "release_status" : "stable",
    "resources" : {
+      "bugtracker" : {
+         "web" : "https://codeberg.org/mauke/Function-Parameters/issues"
+      },
       "repository" : {
          "type" : "git",
-         "url" : "git://github.com/mauke/Function-Parameters",
-         "web" : "https://github.com/mauke/Function-Parameters"
+         "url" : "https://codeberg.org/mauke/Function-Parameters.git",
+         "web" : "https://codeberg.org/mauke/Function-Parameters"
       }
    },
-   "version" : "2.002004",
+   "version" : "2.002005",
    "x_serialization_backend" : "JSON::PP version 4.16"
 }

META.yml

@@ -35,6 +35,7 @@ requires:
   perl: '5.014000'
   warnings: '0'
 resources:
-  repository: git://github.com/mauke/Function-Parameters
-version: '2.002004'
+  bugtracker: https://codeberg.org/mauke/Function-Parameters/issues
+  repository: https://codeberg.org/mauke/Function-Parameters.git
+version: '2.002005'
 x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

Makefile.PL

@@ -103,7 +103,11 @@ my %settings = %{do "./$settings_file" or die "Internal error: can't do $setting
     if (my $repo = delete $settings{REPOSITORY}) {
         if (ref($repo) eq 'ARRAY') {
             my ($type, @args) = @$repo;
-            if ($type eq 'github') {
+            my %sites = (
+                github   => 'github.com',
+                codeberg => 'codeberg.org',
+            );
+            if (defined(my $site = $sites{$type})) {
                 my ($account, $project) = @args;
                 $project ||= '%d';
                 $project =~ s{%(L?)(.)}{
@@ -114,10 +118,10 @@ my %settings = %{do "./$settings_file" or die "Internal error: can't do $setting
                         die "Internal error: unknown placeholder %$1$2";
                     $1 ? lc($x) : $x
                 }seg;
-                my $addr = "github.com/$account/$project";
+                my $addr = "$site/$account/$project";
                 $repo = {
                     type => 'git',
-                    url  => "git://$addr",
+                    url  => "https://$addr.git",
                     web  => "https://$addr",
                 };
             } else {
@@ -128,6 +132,10 @@ my %settings = %{do "./$settings_file" or die "Internal error: can't do $setting
         @{$settings{META_MERGE}{resources}{repository}}{keys %$repo} = values %$repo;
     }
 
+    if (my $bugtracker = delete $settings{BUGTRACKER}) {
+        $settings{META_MERGE}{resources}{bugtracker}{web} = $bugtracker;
+    }
+
     if (my $harness_options = delete $settings{HARNESS_OPTIONS}) {
         $settings{postamble}{HARNESS_OPTIONS} = $harness_options;
     }

Makefile_PL_settings.plx

@@ -52,7 +52,8 @@ return {
         '$(OBJECT)' => join(' ', glob 'hax/*.c.inc'),
     },
 
-    REPOSITORY => [ github => 'mauke' ],
+    REPOSITORY => [ codeberg => 'mauke' ],
+    BUGTRACKER => 'https://codeberg.org/mauke/Function-Parameters/issues',
 
     HARNESS_OPTIONS => ['j4'],
 };

Parameters.xs

@@ -271,6 +271,25 @@ static SV *sentinel_mortalize(Sentinel sen, SV *sv) {
     return sv;
 }
 
+DEFSTRUCT(RStore_U32) {
+    U32 *where;
+    U32 what;
+};
+
+static void resource_store_u32(pTHX_ void *p) {
+    PERL_UNUSED_CONTEXT;
+    RStore_U32 *rs = p;
+    *rs->where = rs->what;
+    Safefree(rs);
+}
+
+static void sentinel_save_u32(Sentinel sen, U32 *pu) {
+    RStore_U32 *rs;
+    Newx(rs, 1, RStore_U32);
+    rs->where = pu;
+    rs->what = *pu;
+    sentinel_register(sen, rs, resource_store_u32);
+}
 
 #if HAVE_PERL_VERSION(5, 17, 2)
  #define MY_OP_SLABBED(O) ((O)->op_slabbed)
@@ -1773,6 +1792,11 @@ static int parse_fun(pTHX_ Sentinel sen, OP **pop, const char *keyword_ptr, STRL
         Perl_croak(aTHX_ "In %"SVf": I was expecting a function body, not \"%c\"", SVfARG(declarator), (int)c);
     }
 
+    /* turn off line debugging for generated code */
+    sentinel_save_u32(sen, &PL_perldb);
+    const U32 prev_db_line = PL_perldb & PERLDBf_LINE;
+    PL_perldb &= ~PERLDBf_LINE;
+
     /* surprise predeclaration! */
     if (saw_name && !spec->install_sub && !(spec->flags & FLAG_RUNTIME)) {
         /* 'sub NAME (PROTO);' to make name/proto known to perl before it
@@ -2365,6 +2389,8 @@ static int parse_fun(pTHX_ Sentinel sen, OP **pop, const char *keyword_ptr, STRL
         }
     }
 
+    PL_perldb |= prev_db_line;
+
     /* finally let perl parse the actual subroutine body */
     body = parse_block(0);
 

lib/Function/Parameters.pm

-package Function::Parameters;
+package Function::Parameters 2.002005;
 
 use v5.14.0;
 use warnings;
@@ -14,8 +14,6 @@ sub _croak {
 
 use XSLoader;
 BEGIN {
-    our $VERSION = '2.002004';
-    #$VERSION =~ s/-TRIAL[0-9]*\z//;
     XSLoader::load;
 }
 

lib/Function/Parameters/Info.pm

-package Function::Parameters::Info;
+package Function::Parameters::Info 2.002005;
 
 use v5.14.0;
 use warnings;
@@ -6,8 +6,6 @@ use warnings;
 use Function::Parameters;
 use Carp ();
 
-our $VERSION = '2.002004';
-
 {
     package Function::Parameters::Param;