Perl, ostrzegam, że nie działa po XML :: Smart save

Question

Uświadomiłem sobie, że istnieje problem z ostrzeżeniem po użyciu zapisu XML :: Smart.

#!/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"; 

badanie zostało wykonane w OSX 10.8.2 wersja Perl 5.12.4 1,77

ta jest prawdopodobnie ściśle związany z wewnętrznego działania XML :: elegancko, ale czy istnieje sposób, aby przywrócić xml-smart wersja drukowanie ostrzeżenia (reset STDERR).

[EDIT 19/3/2013]: W konstruktorze HP-UX jest również problematyczny. Obejście przedstawione poniżej przez ikegami może być użyte zarówno dla nowych, jak i dla zaoszczędzenia, aby przezwyciężyć problem.

Answer 1

Jak zauważył TLP, problem związany jest z manipulacją XML :: Smart przy pomocy $SIG{__WARN__}.

Poniżej znajduje się obejście błędu:

{ 
    local $SIG{__WARN__} = $SIG{__WARN__}; 
    local $SIG{__DIE__} = $SIG{__DIE__}; 
    $XML->save('newfile.xml') ; 
} 

Jak wyjaśnia Borodin, to obejście lokalizuje dwa elementy% SIG, że XML :: Inteligentne modyfikuje tak, że szkoda jest ograniczona do otaczającego bloku. Wartości są automatycznie przywracane na końcu bloku, bezpośrednio po wywołaniu $XML->save.