Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

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

by wolis (Scribe)
on Aug 19, 2004 at 05:30 UTC ( #384185=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

Hi Matt,

I'm getting a memory leak in some old code I have inherited - it does this:

sub getXMLTree{ my $parser = new XML::DOM::Parser; $tree = ""; if(!open(MYFILE,"$fileName")) { $tree = $parser->parse("<root></root>"); $tree = createHeader($tree); $tree = createBody($tree); }else{ close(MYFILE); $tree = $parser->parsefile($fileName); } $tree = updateHeader($tree); return ($tree); }
$filename being a string like "/tmp/myfile.xml"

Can you (or anyone) clarify, should I change how this is done or get a new version of XML::DOM::Parser (I just installed it last week so I cant see how that would help tho)

___ /\__\ "What is the world coming to?" \/__/

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

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (4)
As of 2015-12-02 04:42 GMT
Find Nodes?
    Voting Booth?

    My keyboard shows this many letters:

    Results (34 votes), past polls