Perl,在XML :: Smart保存后警告不能正常工作

Question

我意识到使用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";

测试在OSX 10.8.2 perl版本5.12.4 xml-smart版本1.77中完成

这可能与XML :: Smart的内部工作方式密切相关,但有一种方法可以恢复警告的打印(重置STDERR).

[编辑19/3/2013]:在HP-UX构造函数中也存在问题.ikegami下面提供的解决方法可以用于new和save来克服这个问题.

Answer 1

正如TLP指出的那样,问题与XML :: Smart的摆弄有关$SIG{__WARN__}.

以下是该错误的解决方法:

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

正如Borodin解释的那样,这种解决方法将XML :: Smart修改的%SIG的两个元素本地化,以便将损坏限制在封闭块中.在调用后立即在块结束时自动恢复这些值$XML->save.