| Subject: | Perl, warn not working after XML::Smart save |
| Date: | Sun, 17 Mar 2013 21:03:32 +0200 |
| To: | bug-xml-smart [...] rt.cpan.org |
| From: | Vangelis Valtos <vvaltos [...] gmail.com> |
I realised there is a problem with warn after the use of XML::Smart save.
#!/usr/bin/perl
use strict;use warnings;
use XML::Smart;
my $XML = XML::Smart->new() ;
print STDOUT "Before save: Print to STDOUT works\n";print STDERR
"Before save: Print to STDERR works\n";
warn "Before save: Warn works\n";
$XML->save('newfile.xml') ;
print STDOUT "After save: Print to STDOUT works\n";print STDERR "After
save: Print to STDERR works\n";
warn "After save: Warn does not work\n";
Test is done in OSX 10.8.2 perl version 5.12.4 xml-smart version 1.77