perl -Dt's failure shows that the last operation to run is the .=. So either the concatenation or the defined() check are killing this. More info may follow.

(../seg:10)     unstack
(../seg:10)     gvsv(main::_)
(../seg:10)     rcatline
(../seg:10)     defined
(../seg:10)     and
(../seg:10)     nextstate
(../seg:10)     match
(../seg:10)     and
(../seg:10)     enter
(../seg:10)     nextstate
(../seg:12)     gvsv(main::1)
(../seg:12)     gvsv(main::_)
(../seg:12)     sassign
(../seg:12)     leave
(../seg:10)     unstack
(../seg:10)     gvsv(main::_)
(../seg:10)     rcatline
(../seg:10)     defined
(../seg:10)     and
(../seg:10)     nextstate
(../seg:10)     match
(../seg:10)     and
(../seg:10)     enter
(../seg:10)     nextstate
(../seg:12)     gvsv(main::1)
(../seg:12)     gvsv(main::_)
(../seg:12)     sassign
(../seg:12)     leave
(../seg:10)     unstack
(../seg:10)     gvsv(main::_)
(../seg:10)     rcatline
(../seg:10)     defined
(../seg:10)     and
(../seg:10)     nextstate
(../seg:10)     match
(../seg:10)     and
(../seg:10)     enter
(../seg:10)     nextstate
(../seg:12)     gvsv(main::1)
(../seg:12)     gvsv(main::_)
(../seg:12)     sassign
(../seg:12)     leave
(../seg:10)     unstack
(../seg:10)     gvsv(main::_)
(../seg:10)     rcatline
(../seg:10)     defined
(../seg:10)     and
(../seg:10)     nextstate
(../seg:10)     match
(../seg:10)     and
(../seg:10)     enter
(../seg:10)     nextstate
(../seg:12)     gvsv(main::1)
(../seg:12)     gvsv(main::_)
(../seg:12)     sassign
(../seg:12)     leave
(../seg:10)     unstack
(../seg:10)     gvsv(main::_)
(../seg:10)     rcatline
Segmentation fault

[download]

perl -Ds's failure.

    =>
    =>
    =>  SV_YES
    =>
    =>
    =>
    =>  PVMG("k|"\0)
    =>  PVMG("k|"\0)  PVMG("k|lf\254\4\335\303\306^NQ\365\242.\271Q\37
+66y\364\263\260Iy\202\333\307d\233|\372\12^\202x\232\236\37\14\205\31
+1N\13\247\313\265"...\0)
    =>  PVMG(""\0)
    =>
    =>
    =>  PVMG(""\0)
    =>  PVMG("\277W\346`\307I\246\35\346]d\223\17\20\335ac7\233\225\35
+1\262\377\250|\225\351\343\212l^Du\211q\235D+M\350M\320%\341\3263\311
+\334"...\0)
    =>  SV_YES
    =>
    =>
    =>  SV_YES
    =>
    =>
    =>
    =>  PVMG(""\0)
    =>  PVMG(""\0)  PVMG("\277W\346`\307I\246\35\346]d\223\17\20\335ac
+7\233\225\351\262\377\250|\225\351\343\212l^Du\211q\235D+M\350M\320%\
+341\3263\311\334"...\0)
    =>  PVMG(""\0)
    =>
    =>
    =>  PVMG(""\0)
    =>  PVMG("\274v,D\332\313\330\21C\31\232\206?\247[\220 Q\2lyU }\33
+0\346\6m\241\270\365%\272\242\213\14\1\\\226\264d\205fN\315A\374880]]
+|"...\0)
    =>  SV_YES
    =>
    =>
    =>  SV_YES
    =>
    =>
    =>
    =>  PVMG(""\0)
    =>  PVMG(""\0)  PVMG("\274v,D\332\313\330\21C\31\232\206?\247[\220
+ Q\2lyU }\330\346\6m\241\270\365%\272\242\213\14\1\\\226\264d\205fN\3
+15A\374880]]|"...\0)
    =>  PVMG(""\0)
    =>
    =>
    =>  PVMG(""\0)
    =>  PVMG("\25^\277\11UJ[\221j\353@n\230\341\237\312&y\244\247p\276
+K;\307\215\236\214`\207i\353~\347\0142\302[\315K\251\6'\255\1o\374\4\
+376"...\0)
    =>  SV_YES
    =>
    =>
    =>  SV_YES
    =>
    =>
    =>
    =>  PVMG(""\0)
    =>  PVMG(""\0)  PVMG("\25^\277\11UJ[\221j\353@n\230\341\237\312&y\
+244\247p\276K;\307\215\236\214`\207i\353~\347\0142\302[\315K\251\6'\2
+55\1o\374\4\376"...\0)
    =>  PVMG("+?)~CH"\0)
    =>
    =>
    =>  PVMG("+?)~CH"\0)
    =>  PVMG("+?)~CH\33\222 \306\22\260\240t\365\16\320\315/ \266\333\
+213\372\327\375\325et\366\314\0332[\6\7\225\34k\201x\312\324\11p\30\3
+46"...\0)
    =>  SV_YES
    =>
    =>
Segmentation fault

[download]

In reply to Re: Segmentation fault when doing /match/ and $_=$1 by diotalevi
in thread Segmentation fault when doing /match/ and $_=$1 by ambrus

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.