Code Cleanup - unit test warning

- Cleaned up Perl warning in unit test.
This commit is contained in:
Paul Beckingham 2009-04-12 02:17:12 -04:00
parent 01e5e773eb
commit 120593887b

View file

@ -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.