diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-13 19:38:17 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-13 19:38:17 +0000 |
| commit | d2876be5b271f570ff7582f2abd26166bc9d3060 (patch) | |
| tree | 9a016d47a8ec8501fa0b3619010ccf26eff4eca2 /t/op/ver.t | |
| parent | 9c3c560ba6bc15821847ad7cb7e9463f1d0126d0 (diff) | |
| download | perl-d2876be5b271f570ff7582f2abd26166bc9d3060.tar.gz | |
Move the UTF-8 conversion code earlier so that
op/ver is happy.
p4raw-id: //depot/perl@14246
Diffstat (limited to 't/op/ver.t')
| -rwxr-xr-x | t/op/ver.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/ver.t b/t/op/ver.t index 31bd09c0fd..ecfc15c059 100755 --- a/t/op/ver.t +++ b/t/op/ver.t @@ -208,7 +208,7 @@ my ($revision,$version,$subversion) = split '\.', sprintf("%vd",$^V); my $v = sprintf("%d.%.3d%.3d",$revision,$version,$subversion); -ok( $v eq "$]", "\$^V eq \$] (string)"); +ok( $v eq "$]", qq{"\$^V eq "\$]"}); $v = $revision + $version/1000 + $subversion/1000000; |