Perl, XML sonra çalışmıyor uyarmaya :: Akıllı

Question

Ben XML :: Akıllı tasarruf kullanıldıktan sonra uyarmak ile ilgili bir sorun olduğunu fark kurtardı.

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

Testi OSX 10.8.2 perl sürümü yapılır 5.12.4 xml-akıllı versiyonu Bu muhtemelen yakından XML :: Akıllı çalışma biçiminde ilişkili, ancak geri yüklemek için bir yol yoktur edilir 1.77

uyarının basılması (STDERR'i sıfırla).

[DÜZ 19/3/2013]: HP-UX yapıcısında de problemlidir. Aşağıda ikegami tarafından sağlanan geçici çözüm, hem yeni hem de sorunun üstesinden gelmek için kullanılabilir. TLP belirttiği gibi

Answer 1

, sorun XML ile ilgilidir :: Smart'ın işe yaramaz $SIG{__WARN__} ile. Borodin şöyle açıklıyor

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

, bu geçici çözüm, XML :: Akıllı değiştirir, böylece hasar kapsayan bloğuna sınırlı olduğunu,% SIG iki öğe yerleşir bu: Aşağıdaki

hatadan bir çözümdür. Değerler, bloğun sonunda, $XML->save numaralı çağrıdan hemen sonra otomatik olarak geri yüklenir.