I just tried this code with an executable bound with PerlApp. The code as written works fine if the executable is called by "exename.exe". However, it dies if the executable is called by "exename".

Here's my ugly modification to your code. There's probably a nicer way to do it. Clean it up as you desire. 

BEGIN {
  my $rel2abs = rel2abs $0;
  my $realpath = eval { realpath $rel2abs };
  unless ( defined $realpath ) {
    warn "$rel2abs";
    $rel2abs .= '.exe';
    $realpath = realpath $rel2abs;
  }

  my $myname = $0 = $realpath;
  #my $myname = $0 = realpath rel2abs $0;
  my $mybase = basename $0, qw(.t .pm .pl .perl .exe);
  my $mydir = dirname $0;

  die 'chdir() used too early' unless -f $0;  

  sub myname { $myname }
  sub mybase { $mybase }
  sub mydir  { $mydir  }

}

[download]

Thanks for the useful code. ++!.


TGI says moo

In reply to Re^6: What script is this, and where is it? (Re: who am I?) by TGI
in thread who am I? by momo33

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.