info.t: Use `ok(…, qr/…/)` instead of `ok(… =~ m/…/)`

[chrstphrchvz]

Prefer 2- or 3-argument ok() for debugging See chrstphrchvz/perl-tcl-ptk@724d091

Before:

not ok 4
# Failed test 4 in t/info.t at line 30
#  t/info.t line 30 is: ok($tclversion =~ /^8\.\d+$/);

After:

not ok 4
# Test 4 got: "9.0" (t/info.t at line 30)
#   Expected: "(?^:^8\\.\\d+$)"
#  t/info.t line 30 is: ok($tclversion, qr/^8\.\d+$/);

[vadrer]

thanks for the change :)