[MacPorts] #68843: p5-mac-pasteboard @0.103.0 (perl): trace trap death

[MacPorts]

#68843: p5-mac-pasteboard @0.103.0 (perl): trace trap death
--------------------------+-------------------------------
 Reporter:  mikecappella  |      Owner:  (none)
     Type:  defect        |     Status:  new
 Priority:  Normal        |  Milestone:
Component:  ports         |    Version:  2.8.1
 Keywords:                |       Port:  p5-mac-pasteboard
--------------------------+-------------------------------
 Mac::Pasteboard's paste() is dying due to a trace trap.  The issue is
 recent, and may be a Sonoma issue.  It occurs on both Intel and Apple
 Silicon.

 I don't know if the issue started after I updated my Intel Mac to Sonoma,
 or after any recent Sonoma update(s).


 {{{
 use Mac::Pasteboard;

 my $clip = Mac::Pasteboard->new;
 $clip->paste('public.utf8-plain-text');
 }}}

 ---

 {{{
 $ perl test.pl
 zsh: trace trap  /opt/local/bin/perl test.pl
 }}}


 {{{
 main::(test.pl:3):      my $clip = Mac::Pasteboard->new;
   DB<26> n
 main::(test.pl:4):      $clip->paste('public.utf8-plain-text');
   DB<26> s
 Mac::Pasteboard::paste(/opt/local/lib/perl5/vendor_perl/5.34/darwin-
 thread-multi-2level/Mac/Pasteboard.pm:261):
 261:        my ($self, $flavor) = @_;
 262:        defined $flavor
 263:            and $flavor ne ''
   DB<26> s
 Mac::Pasteboard::paste(/opt/local/lib/perl5/vendor_perl/5.34/darwin-
 thread-multi-2level/Mac/Pasteboard.pm:264):
 264:            or $flavor = $self->{default_flavor};
 265:        my ($status, $data, $flags) = xs_pbl_paste (
   DB<26> l 264,270
 264==>          or $flavor = $self->{default_flavor};
 265         my ($status, $data, $flags) = xs_pbl_paste (
 266:            $self->{pbref}, $self->{id}, $flavor );
 267:        $self->_check ($status);
 268:        $data = $self->_xlate( decode => $data, $flavor );
 269:        return wantarray ? ($data, $flags) : $data;
 270     }
   DB<27> s
 Mac::Pasteboard::paste(/opt/local/lib/perl5/vendor_perl/5.34/darwin-
 thread-multi-2level/Mac/Pasteboard.pm:266):
 266:            $self->{pbref}, $self->{id}, $flavor );
   DB<27> s
 zsh: trace trap  /opt/local/bin/perl -d test.pl
 }}}

-- 
Ticket URL: <https://trac.macports.org/ticket/68843>
MacPorts <https://www.macports.org/>
Ports system for macOS