Work around bug #17687

diff --git a/t/20emit.t b/t/20emit.t
index 7fac2d6..8ce5c8a 100755 (executable)
--- a/t/20emit.t
+++ b/t/20emit.t
@@ -71,13 +71,19 @@ use constant TRANSACTIONS => (
 
 my $txn = new Business::OnlinePayment 'InternetSecure', merchant_id => '0000';
 
-$/ = '';
 foreach (TRANSACTIONS) {
        $txn->test_transaction(delete $_->{_test});
        $txn->content(%$_);
+
+       my $data = do {
+               # Work around bug #17687
+               local $/ = '';
+               scalar <DATA>;
+       };
+
        is_deeply(
                xml_in(Encode::encode('utf8', $txn->to_xml)),
-               xml_in(scalar <DATA>)
+               xml_in($data)
        ); 
 }