Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re: Re: (XML::Parser) Finding and fixing a bug

by Juerd (Abbot)
on Apr 21, 2003 at 23:19 UTC ( #252148=note: print w/ replies, xml ) Need Help??


in reply to Re: (XML::Parser) Finding and fixing a bug
in thread (XML::Parser) Finding and fixing a bug

my $config = $parser->parse('CONFIG');

my $config = $parser->parse(*CONFIG);
But that would better be checked with something like ref(\$arg) eq 'GLOB'.

But... XML::Parser::Expat::parse allows strings to be used. In your try, it'll try to use XML::Parser::Expat::CONFIG. Things change if your symbolic reference contains :::

my $config = $parser->parse('main::CONFIG');
It is unlikely that someone uses a string constant there, but it COULD be some $foo that is the result of whatever, which could in turn be some stringified version of *CONFIG. *CONFIG stringifies to *main::CONFIG, and with that * there it still works:
my $config = $parser->parse('*main::CONFIG');

I didn't want to break (stupid) code like this:

sub something_that_stringifies { "$_[0]" } my $fh = something_that_stringifies *CONFIG; my $config = $parser->parse($fh);

Juerd
- http://juerd.nl/
- spamcollector_perlmonks@juerd.nl (do not use).


Comment on Re: Re: (XML::Parser) Finding and fixing a bug
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://252148]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (8)
As of 2014-12-21 16:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (106 votes), past polls