Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.
  • by jdavidb (1361) on 2002.06.08 9:32 (#9332) Homepage Journal

    I'm probably clueless as to what your intent is, but can you just say:

    if (!@ARGV)
    {
    unshift '-', @ARGV;
    }

    Wouldn't that accomplish what you want?

    --
    J. David works really hard, has a passion for writing good software, and knows many of the world's best Perl programmers
    • Yes and No. The bug is the case where I don't set the ARGV magic, not when I do.

      Even if I change the ARGV stuff to the above, it fails periodically.

      I'm pretty sure now that it's parent/child management. I'm not very good at all this signals stuff, so I'll have to delve into it more deeply tomorrow.