in reply to Re: Invalid use of constant pragma?
in thread Invalid use of constant pragma?

The fact that $ARGV[1] (thus ARCHIVE) is undef and not an empty string isn't really relevent. He's doing a test for string equality via eq, and undef stringifies to an empty string, so the test should succeed. 
$ perl -e 'print "OK\n" if undef eq ""'
OK

[download]

Replies are listed 'Best First'.
Invalid use of constant pragma?
by mikeB (Friar) on Nov 29, 2001 at 20:50 UTC
    D'Oh! You are, of course, correct :/

    I'll just pass along tye's CB suggestion that perhaps use strict; would be in order, to verify no typos exist in the actual code.

    Mike

    use strict; - don't leave home without it

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom