From 120593887b8a0eec43073c9381898e850c135c1d Mon Sep 17 00:00:00 2001 From: Paul Beckingham Date: Sun, 12 Apr 2009 02:17:12 -0400 Subject: [PATCH] Code Cleanup - unit test warning - Cleaned up Perl warning in unit test. --- src/tests/substitute.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/tests/substitute.t b/src/tests/substitute.t index 8b4823ba8..9365df970 100755 --- a/src/tests/substitute.t +++ b/src/tests/substitute.t @@ -45,7 +45,7 @@ my $output = qx{../task rc:subst.rc info 1}; like ($output, qr/FOO foo foo/, 'substitution in description'); qx{../task rc:subst.rc 1 /foo/FOO/g}; -my $output = qx{../task rc:subst.rc info 1}; +$output = qx{../task rc:subst.rc info 1}; like ($output, qr/FOO FOO FOO/, 'global substitution in description'); # Test the substitution command on annotations.