From 47925175157b0589061f9c40e5c17cc5d94d5c96 Mon Sep 17 00:00:00 2001
From: Owen Clarke <o.clarke@gmail.com>
Date: Mon, 5 Mar 2012 09:16:11 +1100
Subject: [PATCH] Bug #936

- Fixed nag.t failing with Perl 5.8.4
---
 test/nag.t | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/test/nag.t b/test/nag.t
index 03a8e8acd..f564a6d4b 100755
--- a/test/nag.t
+++ b/test/nag.t
@@ -52,7 +52,8 @@ like   (qx{../src/task rc:nag.rc 5 do}, qr/NAG/, 'do pri:L -> nag');
 like   (qx{../src/task rc:nag.rc 4 do}, qr/NAG/, 'do pri:M-> nag');
 like   (qx{../src/task rc:nag.rc 3 do}, qr/NAG/, 'do pri:H-> nag');
 like   (qx{../src/task rc:nag.rc 2 do}, qr/NAG/, 'do due:tomorrow -> nag');
-unlike (qx{../src/task rc:nag.rc 1 do}, qr/NAG/, 'do due:yesterday -> no nag');
+my $output = qx{../src/task rc:nag.rc 1 do};
+unlike ($output, qr/NAG/, 'do due:yesterday -> no nag');
 
 # Cleanup.
 unlink qw(pending.data completed.data undo.data backlog.data synch.key nag.rc);