The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test;
use XML::SAX::Writer;

my $v_ok = ! ( defined $XML::SAX::Writer::VERSION 
    && $XML::SAX::Writer::VERSION == 0.41
);

unless ( $v_ok ) {
    warn <<TOHERE;

** WARNING **** WARNING **** WARNING **** WARNING **** WARNING **** WARNING **

XML::SAX::Writer v$XML::SAX::Writer::VERSION is too buggy for production
use, please upgrade if a new one is available or downgrade to 0.39.

TOHERE
}

plan tests => 1;

ok $v_ok;