Re: Eval Reasons?

[WC -Sx- Jones]

James Edward Gray II wrote:
On Feb 24, 2004, at 12:21 AM, WC -Sx- Jones wrote:

Now there aren't any errors:


I believe/hope you are kidding here, 
...





Yes, I was teasing. The code is a trigger which is never pulled.

The Original format was -

do {
    local $SIG{__WARN__} = sub {
        warn "\n$0: $_[0]" unless exists($opts{"h"});
        die "\n\nNOTE:  You must be the root to run this program.\n\n".
# ...

        "the rest of this message was truncated ... \n";
    };
    getopts("hc:psw:b:t:m:", \%opts);
    warn "Help message" if ((exists $opts{"h"}) || ($notroot));
};
-Sx-

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>