Perl debugger: Argument "package SQL::Translator;\n" isn't numeric in numeric ne (!=) at #23151

KES777 · 2025-03-23T02:19:36Z

Description
I am checking breakpoints in my debugger like this:

# Returns TRUE if we can set trap for $file:line
sub DB::can_break {
	my( $file, $line ) =  @_;

	($file, $line) =  split ':', $file
		unless defined $line;

	$file =  DB::file( $file );
	return   unless defined $file;

	no strict 'refs';
	return $line >= 0  &&  $line <= $#{ $::{"_<$file"} }
		&& ${ $::{"_<$file"} }[ $line ] != 0;     # <<< LINE 562

	# http://perldoc.perl.org/perldebguts.html#Debugger-Internals
	# Values in this array are magical in numeric context:
	# they compare equal to zero only if the line is not breakable.
}

And I god this error message during debugging SQL::Translator:

(eval 481)[/home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/Class/Method/Modifiers.pm:148]
Argument "package SQL::Translator;\n" isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 35.

It looks like values are not always magical in numeric context.

Steps to Reproduce
Too complex =(

Expected behavior
As documented the values at the array should be magical

Details

In my debugger I am checking the line is breakable or not via ${ $::{"_<$file"} }[ $line ] != 0; If yes I print 'x', if not I do not print 'x'. Here you can see that lines 40-43, 45-50 are not magical for some reason:

(eval 504)[/home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/Sub/Quote.pm:3]
   x26:         return $invoker->new(@_);
   x27:       } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) {
   x28:         return $meta->new_object(
    29:           $class->can("BUILDARGS") ? $class->BUILDARGS(@_)
    30:                       : $class->Moo::Object::BUILDARGS(@_)
    31:         );
    32:       }
    33:     }
    34:     my $args = scalar @_ == 1
    35:       ? CORE::ref $_[0] eq 'HASH'
  >>36:         ? { %{ $_[0] } }
    37:         : Carp::croak("Single parameters to new() must be a HASH ref"
    38:             . " data => ". $_[0])
    39:       : @_ % 2
Argument "        ? Carp::croak("The new() method for $class expec..." isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 32.
    40:         ? Carp::croak("The new() method for $class expects a hash reference or a"
Argument "            . " key/value list. You passed an odd number..." isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 32.
    41:             . " key/value list. You passed an odd number of arguments")
Argument "        : {@_}\n" isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 32.
    42:         : {@_}
Argument "    ;\n" isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 32.
    43:     ;
   x44:     my $new = bless({}, $class);;
Argument "(exists $args->{"add_comments"} and ($new->{"add_comment..." isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 32.
    45: (exists $args->{"add_comments"} and ($new->{"add_comments"} = $args->{"add_comments"})),
Argument "(exists $args->{"add_drop_table"} and ($new->{"add_drop_..." isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 32.
    46: (exists $args->{"add_drop_table"} and ($new->{"add_drop_table"} = $args->{"add_drop_table"})),
Argument "(exists $args->{"escape_char"} and ($new->{"escape_char"..." isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 32.
    47: (exists $args->{"escape_char"} and ($new->{"escape_char"} = $args->{"escape_char"})),
Argument "(exists $args->{"numeric_types"} and ($new->{"numeric_ty..." isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 32.
    48: (exists $args->{"numeric_types"} and ($new->{"numeric_types"} = $args->{"numeric_types"})),
Argument "(exists $args->{"sizeless_types"} and ($new->{"sizeless_..." isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 32.
    49: (exists $args->{"sizeless_types"} and ($new->{"sizeless_types"} = $args->{"sizeless_types"})),
Argument "(exists $args->{"type_map"} and ($new->{"type_map"} = $a..." isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 32.
    50: (exists $args->{"type_map"} and ($new->{"type_map"} = $args->{"type_map"})),
   x51: (exists $args->{"unquoted_defaults"} and ($new->{"unquoted_defaults"} = $args->{"unquoted_defaults"})),
Argument "    return $new;\n" isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 32.
    52:     return $new;
Argument "  }\n" isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 32.
    53:   }
    54:   $$_UNQUOTED = \&new;
Argument "}\n" isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 32.
    55: }
    56: 1;

Probably this is due internals of Sub/Quote.pm:3.

Another strange case with Sub/Quote

TL;DR; This does not belongs directly the case reported at this issue. But it could be interesting to know it because perl internal variables behaves strange for Sub::Quote module.

Sometimes I got the next error File '(eval 712)[local/lib/perl5/Sub/Quote.pm:3]' is not compiled yet. It is seldom, but if I got it, it is 100% reproducible.

# Returns TRUE if $filename was compiled/evaled
# The file is evaled if it looks like (eval 34)
# But this may be changed by #file:line. See ??? for info
sub DB::file {
	my $filename =  shift // DB::state( 'file' );
	$filename =~ s/^_<//;

	# NOTICE differences:
	# https://stackoverflow.com/q/56273829/4632019
	# https://stackoverflow.com/q/56270222/4632019
	# https://stackoverflow.com/q/56260910/4632019
	# https://stackoverflow.com/q/56273425/4632019
	no strict 'refs';
	unless( exists ${ 'main::' }{ "_<$filename" } ) {
		DB::warn "File '$filename' is not compiled yet";  # <<<Error comes from here

		return;
	}

	return ${ $::{"_<$filename"} }
}

I do not expect that second error message when I step over the line, because it happens only in the certain cases. And if I do not trigger that case I can step over that line of code at debugger.

How this code looks like:

    Code:
        19: # NOTICE: If I run the next code in debugger and then run "n" it fails with the error:
        20: # File '(eval 712)[local/lib/perl5/Sub/Quote.pm:3]' is not compiled yet
        21: # Can't use an undefined value as an ARRAY reference at local/lib/perl5/DB/Hooks.pm line 546
        22: # Beware: the leeding space is important. Without it the code works well.
        23: # DBG> A::FormData::process { Email => {} }
        24: # DBG>n
      >>25: db_clear();
        26:
       x27: $got    =  A::FormData::process { Email => {} };
       x28: $expect =  eval data_section 'main', 'email';
        29:
       x30: like $got, $expect, "Email";
        31:
        32: # <<
       x33: D::db->txn_rollback;
       x34: done_testing();
        35:
        36:
        37: __DATA__
    
    DBG> A::FormData::process { Email => {} }
    {
      Email => {
        comment => undef,
        company_id => 14,
        email => [email protected],
        id => 6,
        type => undef,
      },
    }
    
    DBG>n
    File '(eval 712)[local/lib/perl5/Sub/Quote.pm:3]' is not compiled yet
    File '(eval 712)[local/lib/perl5/Sub/Quote.pm:3]' is not compiled yet

So here above the error is not compiled yet happens only if I run A::FormData::process { Email => {} }. If I do not run that code, then everything works fine. A::FormData::process do interaction with many tables in database via DBIx::Class. So it is not clear what happens there inside. Probably there occurs second call to Sub/Quote.pm which makes conflict later.

Perl configuration

Summary of my perl5 (revision 5 version 41 subversion 2) configuration:
   
  Platform:
    osname=linux
    osvers=6.5.0-1027-oem
    archname=x86_64-linux
    uname='linux work 6.5.0-1027-oem #28-ubuntu smp preempt_dynamic thu jul 25 13:32:46 utc 2024 x86_64 x86_64 x86_64 gnulinux '
    config_args='-de -Dprefix=/home/kes/perl5/perlbrew/perls/perl-5.41.2 -Dusedevel -Aeval:scriptdir=/home/kes/perl5/perlbrew/perls/perl-5.41.2/bin'
    hint=recommended
    useposix=true
    d_sigaction=define
    useithreads=undef
    usemultiplicity=undef
    use64bitint=define
    use64bitall=define
    uselongdouble=undef
    usemymalloc=n
    default_inc_excludes_dot=define
  Compiler:
    cc='cc'
    ccflags ='-fwrapv -fno-strict-aliasing -pipe -fstack-protector-strong -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'
    optimize='-O2'
    cppflags='-fwrapv -fno-strict-aliasing -pipe -fstack-protector-strong -I/usr/local/include'
    ccversion=''
    gccversion='13.1.0'
    gccosandvers=''
    intsize=4
    longsize=8
    ptrsize=8
    doublesize=8
    byteorder=12345678
    doublekind=3
    d_longlong=define
    longlongsize=8
    d_longdbl=define
    longdblsize=16
    longdblkind=3
    ivtype='long'
    ivsize=8
    nvtype='double'
    nvsize=8
    Off_t='off_t'
    lseeksize=8
    alignbytes=8
    prototype=define
  Linker and Libraries:
    ld='cc'
    ldflags =' -fstack-protector-strong -L/usr/local/lib'
    libpth=/usr/local/lib /usr/lib/x86_64-linux-gnu /usr/lib /usr/lib64
    libs=-lpthread -ldl -lm -lcrypt -lutil -lc
    perllibs=-lpthread -ldl -lm -lcrypt -lutil -lc
    libc=/lib/x86_64-linux-gnu/libc.so.6
    so=so
    useshrplib=false
    libperl=libperl.a
    gnulibc_version='2.35'
  Dynamic Linking:
    dlsrc=dl_dlopen.xs
    dlext=so
    d_dlsymun=undef
    ccdlflags='-Wl,-E'
    cccdlflags='-fPIC'
    lddlflags='-shared -O2 -L/usr/local/lib -fstack-protector-strong'


Characteristics of this binary (from libperl): 
  Compile-time options:
    HAS_LONG_DOUBLE
    HAS_STRTOLD
    HAS_TIMES
    PERLIO_LAYERS
    PERL_COPY_ON_WRITE
    PERL_DONT_CREATE_GVSV
    PERL_HASH_FUNC_SIPHASH13
    PERL_HASH_USE_SBOX32
    PERL_MALLOC_WRAP
    PERL_OP_PARENT
    PERL_PRESERVE_IVUV
    PERL_USE_DEVEL
    PERL_USE_SAFE_PUTENV
    USE_64_BIT_ALL
    USE_64_BIT_INT
    USE_LARGE_FILES
    USE_LOCALE
    USE_LOCALE_COLLATE
    USE_LOCALE_CTYPE
    USE_LOCALE_NUMERIC
    USE_LOCALE_TIME
    USE_PERLIO
    USE_PERL_ATOF
  Built under linux
  Compiled at Aug 17 2024 19:35:18
  %ENV:
    PERLBREW="command perlbrew"
    PERLBREW_HOME="/home/kes/.perlbrew"
    PERLBREW_MANPATH="/home/kes/perl5/perlbrew/perls/perl-5.41.2/man"
    PERLBREW_PATH="/home/kes/perl5/perlbrew/bin:/home/kes/perl5/perlbrew/perls/perl-5.41.2/bin"
    PERLBREW_PERL="perl-5.41.2"
    PERLBREW_ROOT="/home/kes/perl5/perlbrew"
    PERLBREW_SHELLRC_VERSION="0.98"
    PERLBREW_VERSION="0.98"
  @INC:
    /home/kes/perl5/perlbrew/perls/perl-5.41.2/lib/site_perl/5.41.2/x86_64-linux
    /home/kes/perl5/perlbrew/perls/perl-5.41.2/lib/site_perl/5.41.2
    /home/kes/perl5/perlbrew/perls/perl-5.41.2/lib/5.41.2/x86_64-linux
    /home/kes/perl5/perlbrew/perls/perl-5.41.2/lib/5.41.2

The text was updated successfully, but these errors were encountered:

KES777 · 2025-03-23T02:39:36Z

Hm... I never seen this error messages. Probably this is due perl version 5.41.2.

This what happens when I try to display evaled code (Please notice, that not all lines are broken):

  (eval 510)[/home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Hooks.pm:429]
Argument "BEGIN {\n" isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 8.
      1: BEGIN {
Argument "^I( $^H, ${^WARNING_BITS}, my $hr ) =  @{ DB::state( 'co..." isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 8.
      2:     ( $^H, ${^WARNING_BITS}, my $hr ) =  @{ DB::state( 'context' )->[0] }[8..10];
Argument "^I%^H =  %$hr   if $hr;\n" isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 8.
      3:     %^H =  %$hr   if $hr;
Argument "}\n" isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 8.
      4: }
Argument "# $@ is cleared when compiller enters *eval* or *BEGIN* ..." isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 8.
      5: # $@ is cleared when compiller enters *eval* or *BEGIN* block
Argument "$@ =  (DB::state( 'context' ))[2];\n" isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 8.
      6: $@ =  (DB::state( 'context' ))[2];
Argument "; package SQL::Translator::Generator::DDL::SQLServer;\n" isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 8.
      7: ; package SQL::Translator::Generator::DDL::SQLServer;
     x8: $^D |= (1<<30);$DB::single= 1;
    >>9: $schema->get_tables
Argument ";" isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 8.
      10: ;

It looks like something is broken in the latest perl. I'll try to do the same with earlier versions of perl.

KES777 · 2025-03-23T14:44:17Z

If I access that internal array the second time then it works as expected.

(eval 416)[/home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/Sub/Quote.pm:3]
Argument "{\n" isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 6.
    1: {
    2:   my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
    3:   my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
Argument "  package SQL::Translator;\n" isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 6.
    4:   package SQL::Translator;
    5:   no warnings 'closure';
Argument "  sub no_comments {\n" isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 6.
    6:   sub no_comments {
  >>7:   ($_QUOTED,$_UNQUOTED) if 0;
Argument "# BEGIN quote_sub PRELUDE\n" isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 6.
    8: # BEGIN quote_sub PRELUDE
Argument "package Method::Generate::Accessor::_Generated;\n" isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 6.
    9: package Method::Generate::Accessor::_Generated;
   x10: BEGIN {
    11:   $^H = 1762;
    12:   ${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
    13:   %^H = (
Argument "  );\n" isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 6.
    14:   );
Argument "}\n" isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 6.
    15: }
Argument "# END quote_sub PRELUDE\n" isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 6.
    16: # END quote_sub PRELUDE
Argument "(@_ > 1\n" isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 6.
    17: (@_ > 1
Argument "      ? ($_[0]->{"no_comments"} = do {\n" isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 6.
    18:       ? ($_[0]->{"no_comments"} = do {
   x19:   local $Method::Generate::Accessor::CurrentAttribute = {
Argument "    init_arg => undef(),\n" isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 6.
    20:     init_arg => undef(),
Argument "    name     => "no_comments",\n" isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 6.
    21:     name     => "no_comments",
Argument "    step     => "coercion",\n" isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 6.
    22:     step     => "coercion",
Argument "  };\n" isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 6.
    23:   };
   x24:   (my $_return),
Argument "  (my $_error), (my $_old_error = $@);\n" isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 6.
    25:   (my $_error), (my $_old_error = $@);
   x26:   (eval {
Argument "    ($@ = $_old_error),\n" isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 6.
    27:     ($@ = $_old_error),


DBG>l .
Use of uninitialized value $stack in pattern match (m//) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Commands.pm line 701, <STDIN> line 7.

(eval 416)[/home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/Sub/Quote.pm:3]
    1: {
    2:   my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
    3:   my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
    4:   package SQL::Translator;
    5:   no warnings 'closure';
    6:   sub no_comments {
  >>7:   ($_QUOTED,$_UNQUOTED) if 0;
    8: # BEGIN quote_sub PRELUDE
    9: package Method::Generate::Accessor::_Generated;
   x10: BEGIN {
    11:   $^H = 1762;
    12:   ${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
    13:   %^H = (
    14:   );
    15: }
    16: # END quote_sub PRELUDE
    17: (@_ > 1

tonycoz · 2025-03-24T00:36:56Z

From what I can tell this isn't a new issue:

tony@venus:.../git/perl6$ perl -v

This is perl 5, version 36, subversion 0 (v5.36.0) built for x86_64-linux-gnu-thread-multi
(with 53 registered patches, see perl -V for more detail)
...
tony@venus:.../git/perl6$ perl -I.. -d:Dummy -MSQL::Translator -MB -MDevel::Peek -le 'my ($f) = grep /eval/ && /Quote/, keys %::; print $f; my $x = $::{$f}; my $lineno = 0; for my $l (@$x) { if ($l) { my $b = B::svref_2object(\$l); if (!($b->FLAGS & 0x100)) { print "Line $lineno"; Dump($l); exit } } ++$lineno; }'
_<(eval 120)[/usr/share/perl5/Sub/Quote.pm:3]
Line 1
SV = PVMG(0x559021eb4c70) at 0x559021eb6658
  REFCNT = 2
  FLAGS = (POK,pPOK)
  IV = 0
  NV = 0
  PV = 0x559021cd6f30 "{\n"\0
  CUR = 2
  LEN = 10

From what I can tell S_save_lines() in pp_ctl.c has never set the IV part of the saved line.

The fix is easy, writing a test is a bit harder.

jkeenan · 2025-03-24T23:32:35Z

From what I can tell this isn't a new issue:

tony@venus:.../git/perl6$ perl -v

This is perl 5, version 36, subversion 0 (v5.36.0) built for x86_64-linux-gnu-thread-multi
(with 53 registered patches, see perl -V for more detail)
...
tony@venus:.../git/perl6$ perl -I.. -d:Dummy -MSQL::Translator -MB -MDevel::Peek -le 'my ($f) = grep /eval/ && /Quote/, keys %::; print $f; my $x = $::{$f}; my $lineno = 0; for my $l (@$x) { if ($l) { my $b = B::svref_2object(\$l); if (!($b->FLAGS & 0x100)) { print "Line $lineno"; Dump($l); exit } } ++$lineno; }'
_<(eval 120)[/usr/share/perl5/Sub/Quote.pm:3]
Line 1
SV = PVMG(0x559021eb4c70) at 0x559021eb6658
  REFCNT = 2
  FLAGS = (POK,pPOK)
  IV = 0
  NV = 0
  PV = 0x559021cd6f30 "{\n"\0
  CUR = 2
  LEN = 10

From what I can tell S_save_lines() in pp_ctl.c has never set the IV part of the saved line.

The fix is easy, writing a test is a bit harder.

@tonycoz is this a problem in perl or in the CPAN module (or some combination thereof)?

tonycoz · 2025-03-24T23:33:01Z

It's a problem with perl.

jkeenan · 2025-03-24T23:36:53Z

It's a problem with perl.

Should I attempt to bisect it?

tonycoz · 2025-03-24T23:47:14Z

You could try.

I suspect it is a very old bug.

perldebguts documents that the lines stored in @{"_<$filename"} arrays have a numeric value in addition to the text of the source, ensure that is true for evals. Non-zero IV values indicate the lines are breakable (they represent the address of the COP for that line) Fixes Perl#23151

KES777 added the Needs Triage label Mar 23, 2025

jkeenan removed the Needs Triage label Mar 24, 2025

tonycoz self-assigned this Mar 24, 2025

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

Perl debugger: Argument "package SQL::Translator;\n" isn't numeric in numeric ne (!=) at #23151

Perl debugger: Argument "package SQL::Translator;\n" isn't numeric in numeric ne (!=) at #23151

KES777 commented Mar 23, 2025

KES777 commented Mar 23, 2025 •

edited

Loading

KES777 commented Mar 23, 2025

tonycoz commented Mar 24, 2025

jkeenan commented Mar 24, 2025

tonycoz commented Mar 24, 2025

jkeenan commented Mar 24, 2025

tonycoz commented Mar 24, 2025

Perl debugger: Argument "package SQL::Translator;\n" isn't numeric in numeric ne (!=) at #23151

Perl debugger: Argument "package SQL::Translator;\n" isn't numeric in numeric ne (!=) at #23151

Comments

KES777 commented Mar 23, 2025

Details

KES777 commented Mar 23, 2025 • edited Loading

KES777 commented Mar 23, 2025

tonycoz commented Mar 24, 2025

jkeenan commented Mar 24, 2025

tonycoz commented Mar 24, 2025

jkeenan commented Mar 24, 2025

tonycoz commented Mar 24, 2025

KES777 commented Mar 23, 2025 •

edited

Loading