diff options
| author | Lajos Veres <vlajos@gmail.com> | 2015-01-28 21:27:08 -0500 |
|---|---|---|
| committer | James E Keenan <jkeenan@cpan.org> | 2015-01-28 21:27:08 -0500 |
| commit | 92dfa2590a5024b530c9d58fdd2520a01d40cef6 (patch) | |
| tree | c405e213fffcae85481c7db4adfe55b73f9a6d59 /ext/B/t | |
| parent | 5bf4b3bf13bc4055684a48448b05920845ef7764 (diff) | |
| download | perl-92dfa2590a5024b530c9d58fdd2520a01d40cef6.tar.gz | |
Corrections to spelling and grammatical errors.
Extracted from patch submitted by Lajos Veres in RT #123693.
Diffstat (limited to 'ext/B/t')
| -rw-r--r-- | ext/B/t/OptreeCheck.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/B/t/OptreeCheck.pm b/ext/B/t/OptreeCheck.pm index eac73baa73..a099a97ec9 100644 --- a/ext/B/t/OptreeCheck.pm +++ b/ext/B/t/OptreeCheck.pm @@ -5,7 +5,7 @@ use warnings; use vars qw($TODO $Level $using_open); require "test.pl"; -our $VERSION = '0.12'; +our $VERSION = '0.13'; # now export checkOptree, and those test.pl functions used by tests our @EXPORT = qw( checkOptree plan skip skip_all pass is like unlike @@ -652,14 +652,14 @@ sub mkCheckRex { : $cmp eq '==' ? $] == $version : $cmp eq '>=' ? $] >= $version : $cmp eq '>' ? $] > $version - : die("bad comparision '$cmp' in string [$str]\n") + : die("bad comparison '$cmp' in string [$str]\n") and !$cmp2 || ( $cmp2 eq '<' ? $] < $v2 : $cmp2 eq '<=' ? $] <= $v2 : $cmp2 eq '==' ? $] == $v2 : $cmp2 eq '>=' ? $] >= $v2 : $cmp2 eq '>' ? $] > $v2 - : die("bad comparision '$cmp2' in string [$str]\n") + : die("bad comparison '$cmp2' in string [$str]\n") ) ) { $repl = "$line\n"; |