... if I saw the assembler code for that function on a machine where it crashes.

Here's the objdump of the respective routine of libperl.so.5.10.0 (x86-64, compiled with gcc-4.3.2) on Ubuntu (where it does crash): 

0000000000103a10 <Perl_do_tell>:
  103a10:    48 89 5c 24 e8           mov    %rbx,-0x18(%rsp)
  103a15:    4c 89 64 24 f8           mov    %r12,-0x8(%rsp)
  103a1a:    48 89 f3                 mov    %rsi,%rbx
  103a1d:    48 89 6c 24 f0           mov    %rbp,-0x10(%rsp)
  103a22:    48 83 ec 18              sub    $0x18,%rsp
  103a26:    80 7e 0c 09              cmpb   $0x9,0xc(%rsi)
  103a2a:    49 89 fc                 mov    %rdi,%r12
  103a2d:    74 41                    je     103a70 <Perl_do_tell+0x60
+>
  103a2f:    31 ed                    xor    %ebp,%ebp
  103a31:    be 0b 06 00 00           mov    $0x60b,%esi
  103a36:    4c 89 e7                 mov    %r12,%rdi
  103a39:    e8 12 49 f3 ff           callq  38350 <Perl_ckwarn@plt>
  103a3e:    84 c0                    test   %al,%al
  103a40:    75 6e                    jne    103ab0 <Perl_do_tell+0xa0
+>
  103a42:    e8 29 34 f3 ff           callq  36e70 <__errno_location@p
+lt>
  103a47:    c7 00 09 00 00 00        movl   $0x9,(%rax)
  103a4d:    48 c7 c0 ff ff ff ff     mov    $0xffffffffffffffff,%rax
  103a54:    48 8b 1c 24              mov    (%rsp),%rbx
  103a58:    48 8b 6c 24 08           mov    0x8(%rsp),%rbp
  103a5d:    4c 8b 64 24 10           mov    0x10(%rsp),%r12
  103a62:    48 83 c4 18              add    $0x18,%rsp
  103a66:    c3                       retq   
  103a67:    66 0f 1f 84 00 00 00     nopw   0x0(%rax,%rax,1)
  103a6e:    00 00 
  103a70:    48 8b 46 10              mov    0x10(%rsi),%rax
  103a74:    48 85 c0                 test   %rax,%rax
  103a77:    74 b6                    je     103a2f <Perl_do_tell+0x1f
+>
  103a79:    48 8b 68 08              mov    0x8(%rax),%rbp
  103a7d:    48 85 ed                 test   %rbp,%rbp
  103a80:    74 af                    je     103a31 <Perl_do_tell+0x21
+>
  103a82:    48 8b 45 00              mov    0x0(%rbp),%rax
  103a86:    48 8b 70 30              mov    0x30(%rax),%rsi
  103a8a:    48 85 f6                 test   %rsi,%rsi
  103a8d:    74 a2                    je     103a31 <Perl_do_tell+0x21
+>
  103a8f:    48 8b 1c 24              mov    (%rsp),%rbx
  103a93:    48 8b 6c 24 08           mov    0x8(%rsp),%rbp
  103a98:    4c 8b 64 24 10           mov    0x10(%rsp),%r12
  103a9d:    48 83 c4 18              add    $0x18,%rsp
  103aa1:    e9 ba 14 f3 ff           jmpq   34f60 <Perl_PerlIO_tell@p
+lt>
  103aa6:    66 2e 0f 1f 84 00 00     nopw   %cs:0x0(%rax,%rax,1)
  103aad:    00 00 00 
  103ab0:    49 8b 44 24 08           mov    0x8(%r12),%rax
  103ab5:    48 89 ea                 mov    %rbp,%rdx
  103ab8:    48 89 de                 mov    %rbx,%rsi
  103abb:    4c 89 e7                 mov    %r12,%rdi
  103abe:    0f b7 48 20              movzwl 0x20(%rax),%ecx
  103ac2:    81 e1 ff 01 00 00        and    $0x1ff,%ecx
  103ac8:    e8 e3 3e f3 ff           callq  379b0 <Perl_report_evil_f
+h@plt>
  103acd:    e9 70 ff ff ff           jmpq   103a42 <Perl_do_tell+0x32
+>
  103ad2:    66 66 66 66 66 2e 0f     nopw   %cs:0x0(%rax,%rax,1)
  103ad9:    1f 84 00 00 00 00 00

[download]

Update: AFAICT (which might not be all that far :) — I stopped doing assembly around ten years ago), the "if (gv " has not been optimised away: 

  103a70:    mov    0x10(%rsi),%rax             # fetch gv from stack
  103a74:    test   %rax,%rax                   # gv == 0 ?
  103a77:    je     103a2f <Perl_do_tell+0x1f>  # if so, continue with
+ if (ckWARN2...

[download]

In reply to Re^3: Perl segfaults: Why? by almut
in thread Perl segfaults: Why? by bv

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.