I get no such popup.
Who built your Perl? What version is it? (I used ActivePerl v5.14.0.) I think there's a system call that configures the behaviour. (I can't remember what it's called.) There could be differences between our builds in how it's called.
Why kind of drive causes the popup? (I have a CD drive but no diskette drive.)
By the way, ever hear of loops? They are used to avoid having long lists of nearly identical code.
Update: Forgot to address your actual goal!
my objective here is to get the drive which my perl script lies in
use Path::Class qw( file );
my $vol = file($0)->absolute()->volume();
$vol = "$1:" if $vol =~ /^(?:\\\\\?\\)?([a-zA-Z])\z/;
$vol = uc($vol) if $vol =~ /^[a-zA-Z]:\z/;
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
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:
Outside of code tags, you may need to use entities for some characters:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, 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, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.
| & || & |
| < || < |
| > || > |
| [ || [ |
| ] || ] ||