caller() reports $line numbers inconsistantly

[p5pRT]

Migrated from rt.perl.org#7165 (status was 'stalled')

Searchable as RT7165$

[p5pRT]

From [email protected]

---

When a function call spans several lines, caller sometimes reports the
first line and other times the last. As illustrated in the following:

my $tag = "#CALLER";

sub tagCall
{
my ($package, $file, $line) = caller;
open CALLER, "$file";
my @lines = <CALLER>;
$lines[$line-1] =~ s/\s?($tag)?(\s*)$/ $tag$2/;
open CALLER, ">$file";
print CALLER @lines;
}

tagCall #CALLER
"abc",
"123",
"foo";

tagCall
"abc",
sub {},
"foo"; #CALLER

It might be that no one else cares about this, but it matters to
me. I will send $100 (US) to whoever fixes this bug (so caller()
always reports the number of the first line of the call) if:

1. The patch is accepted into the next release of perl.

2. The patch works under Tru64 and Solaris.

This offer is good until September 1st 2001. Payment by PayPal or
check by mail. I do not follow the Perl mailing lists so contact me
at [email protected].

Perl Info

Flags:
    category=core
    severity=low

Site configuration information for perl v5.6.1:

Configured by Josh at Thu Mar 22 16:19:47 2001.

Summary of my perl5 (revision 5 version 6 subversion 1) configuration:
  Platform:
    osname=MSWin32, osvers=4.0, archname=MSWin32-x86-multi-thread
    uname=''
    config_args='undef'
    hint=recommended, useposix=true, d_sigaction=undef
    usethreads=undef use5005threads=undef useithreads=define
usemultiplicity=define
    useperlio=undef d_sfio=undef uselargefiles=undef usesocks=undef
    use64bitint=undef use64bitall=undef uselongdouble=undef
  Compiler:
    cc='cl', ccflags ='-nologo -O1 -MD -DNDEBUG -DWIN32 -D_CONSOLE
-DNO_STRICT -DHAVE_DES_FCRYPT  -DPERL_IMPLICIT_CONTEXT
-DPERL_IMPLICIT_SYS -DPERL_MSVCRT_READFIX',
    optimize='-O1 -MD -DNDEBUG',
    cppflags='-DWIN32'
    ccversion='', gccversion='', gccosandvers=''
    intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
    d_longlong=undef, longlongsize=8, d_longdbl=define, longdblsize=10
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
lseeksize=4
    alignbytes=8, usemymalloc=n, prototype=define
  Linker and Libraries:
    ld='', ldflags ='-nologo -nodefaultlib -release 
-libpath:"C:\Program Files\Perl\lib\CORE"  -machine:x86'
    libpth="C:\Program Files\Perl\lib\CORE"
    libs=  oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib 
comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib 
netapi32.lib uuid.lib wsock32.lib mpr.lib winmm.lib  version.lib
odbc32.lib odbccp32.lib msvcrt.lib
    perllibs=  oldnames.lib kernel32.lib user32.lib gdi32.lib
winspool.lib  comdlg32.lib advapi32.lib shell32.lib ole32.lib
oleaut32.lib  netapi32.lib uuid.lib wsock32.lib mpr.lib winmm.lib 
version.lib odbc32.lib odbccp32.lib msvcrt.lib
    libc=msvcrt.lib, so=dll, useshrplib=yes, libperl=perl56.lib
  Dynamic Linking:
    dlsrc=dl_win32.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' '
    cccdlflags=' ', lddlflags='-dll -nologo -nodefaultlib -release 
-libpath:"C:\Program Files\Perl\lib\CORE"  -machine:x86'

Locally applied patches:
    v5.6.1-TRIAL3
    ACTIVEPERL_LOCAL_PATCHES_ENTRY


@INC for perl v5.6.1:
    C:/Program Files/Perl/lib
    C:/Program Files/Perl/site/lib
    .


Environment for perl v5.6.1:
    HOME (unset)
    LANG (unset)
    LANGUAGE (unset)
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PATH=C:\Program
Files\Perl\bin\;C:\WINNT\system32;C:\WINNT;C:\WINNT\System32\Wbem;c:\cygwin\bin;C:\Program
Files\Microsoft Visual Studio\Common\Tools\WinNT;C:\Program
Files\Microsoft Visual Studio\Common\MSDev98\Bin;C:\Program
Files\Microsoft Visual Studio\Common\Tools;C:\Program Files\Microsoft
Visual Studio\VC98\bin;C:\Program Files\emacs\bin;C:\Program
Files\WN16\BIN;
    PERL_BADLANG (unset)
    SHELL (unset)


__________________________________________________
Do You Yahoo!?
Get personalized email addresses from Yahoo! Mail
http://personal.mail.yahoo.com/

[p5pRT]

From [email protected]

A much easier example of the code:

#!/usr/bin/perl -l

use strict;
use warnings;

sub tagCall {
  my ($package, $file, $line) = caller;
  print "LINE = $line";
}

tagCall
"abc";

tagCall
sub {};
__END__
tagCall in the source code is on line 11 and on line 14.

Running the script:

LINE = 11
LINE = 15

[p5pRT]

From @Hugmeir

Hah, I guess that, ten years ago, no one liked money. This is still
present in 5.16.0.

[p5pRT]

@Hugmeir - Status changed from 'open' to 'stalled'

[toddr]

Also present on 5.30

[demerphq]

On Fri, 31 Jan 2020 at 08:55, Todd Rinaldo ***@***.***> wrote: Also present on 5.30

This should probably be consolidated into a single ticket on line number issues. There are many variants, but the general theme is that for efficiency reasons we don't store line and file data for every opcode, and instead only do so for COP's and sometimes this means Perl gets quite a bit muddled about what line something happened on. Yves $ cat muddle.pl ```perl use strict; use warnings; use Carp; sub t1 { Carp::confess("t1") if $ARGV[0] == 1; } sub t2 { Carp::confess("t2") if $ARGV[0] == 2; } sub t3 { Carp::confess("t3") if $ARGV[0] == 3; } if (t1) { } elsif (t2) { } elsif (t3) { } $ perl muddle.pl 1 t1 at muddle.pl line 6. main::t1() called at muddle.pl line 16 $ perl muddle.pl 2 t2 at muddle.pl line 9. main::t2() called at muddle.pl line 16 $ perl muddle.pl 3 t3 at muddle.pl line 12. main::t3() called at muddle.pl line 16 ``` Notice all three case say their function was called on line 16, but they were actually called at lines 16, 18, and 20 respectively. Yves