Re^3: XML::Twig output problem

[plockhart]

in reply to Re^2: XML::Twig output problem
in thread XML::Twig output problem

I updated the code that I was having trouble with, in particular:

sub DumpOldAds
    { my ($twig,$nisNISJob)=@_;

        my $date = UnixDate("today", "%Y-%m-%d".'T00:00:00');
        chomp $date;
        
        my $adate = $nisNISJob->findvalue('.//JobActiveDate');

        print "\n$adate -|- $date\n";

        if( $adate  ne  $date) { $nisNISJob->delete; }
        else { print $nisNISJob; };
        
            }

When I replaced "else {$twig->flush} with else {print $nisNISJob), it worked. What am I missing concerning flush not working? Thanks, P