diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-11-29 19:31:56 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-11-29 19:31:56 +0000 |
| commit | f63ceb1c48810cc43268c83de36dc71834702c3b (patch) | |
| tree | d47c1bfcdcea4081f77f42edf2a5c009b367e2b8 /lib/Test.pm | |
| parent | e02fdbd207cb59e2bc293aefa8d5320e52579e74 (diff) | |
| download | perl-f63ceb1c48810cc43268c83de36dc71834702c3b.tar.gz | |
misc tweaks
p4raw-id: //depot/perl@2393
Diffstat (limited to 'lib/Test.pm')
| -rw-r--r-- | lib/Test.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Test.pm b/lib/Test.pm index 22f947acf1..daf6e4e127 100644 --- a/lib/Test.pm +++ b/lib/Test.pm @@ -63,7 +63,7 @@ sub ok ($;$$) { } else { $expected = to_value(shift); my ($regex,$ignore); - if ((ref($expected)||'') eq 're') { + if ((ref($expected)||'') eq 'Regexp') { $ok = $result =~ /$expected/; } elsif (($regex) = ($expected =~ m,^ / (.+) / $,sx) or ($ignore, $regex) = ($expected =~ m,^ m([^\w\s]) (.+) \1 $,sx)) { @@ -96,7 +96,7 @@ sub ok ($;$$) { my $prefix = "Test $ntest"; print $TESTOUT "# $prefix got: '$result' ($context)\n"; $prefix = ' ' x (length($prefix) - 5); - if ((ref($expected)||'') eq 're') { + if ((ref($expected)||'') eq 'Regexp') { $expected = 'qr/'.$expected.'/' } else { $expected = "'$expected'"; |