Work around bug #17687

1 files changed, 8 insertions, 2 deletions

diff --git a/t/20emit.t b/t/20emit.t
index 7fac2d6..8ce5c8a 100755
--- 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)
 	); 
 }