test failed on windows

[hbasrc]

t\clear.t test failed on windows, does't match the file path:

...
t\clear.t ....... 1/5
#   Failed test 'Test dies if you try to delete a key in a tied hash'
#   at t\clear.t line 27.
#                   'Modification of a CDB_File attempted at t\clear.t line 27.
# '
#     doesn't match '(?^:^Modification\ of\ a\ CDB_File\ attempted\ at\ t\/clear\.t)'
...

a little fix:

like exception { delete $h{'one'} }, qr{^\QModification of a CDB_File attempted at $0\E}, "Test dies if you try to delete a key in a tied hash";
like exception { $h{'one'} = 5 }, qr{^\QModification of a CDB_File attempted at $0\E}, "Test dies if you try to modify a key in a tied hash";

my $t = tied %h;

like exception { $t->CLEAR }, qr{^\QModification of a CDB_File attempted at $0\E}, "Test dies if you try to clear the tied hash";