I hope to ear working solutions but i humbly suspect we'll not. I also suspect that this file handle is bring to existence only when logical end of the file is different from the physical one (as you have read in Special Literals) and this is due to the special token __DATA__

If no token is found (i suspect) that anyone that was reading the code close the file before any possible existence of a Perl filehandle. Infact DATA is not available during a BEGIN block, obviously. Also the fact that $. starts just after the token, with the value of 1 make me suspicious. I've still waiting for that trick solution.. but some test is still interesting (oneliners acts like plain file here):

perl -we "print tell DATA"
  Name "main::DATA" used only once: possible typo at -e line 1.
  tell() on unopened filehandle DATA at -e line 1.
  -1

perl -we "print tell DATA;__DATA__" -e"aaa" -e "bbb"                  
+  # uh?! no error!
  0

perl -we "print tell DATA;__DATA__" -e"aaa" -e "bbb" -MO=Deparse
  BEGIN { $^W = 1; }
  print tell DATA;
  __DATA__
  -e syntax OK

[download]

About the fool idea of opening $0 and just for curiosity, was my 7th post here.

L*

There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.

In reply to Re: Introsepcting the current Perl file via DATA, even w/o DATA? by Discipulus
in thread Introspecting the current Perl file via DATA, even w/o DATA? by LanX

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.