diff --git a/t/constant.t b/t/constant.t
index d86a1eb..ba892b4 100644
--- a/t/constant.t
+++ b/t/constant.t
@@ -143,7 +143,7 @@ $TB->current_test($curr_test+5);
SKIP: {
skip $no_pseudohashes, 1 if $no_pseudohashes;
- skip "doesn't work on 5.5.x", 1 if $[ < 5.006;
+ skip "doesn't work on 5.5.x", 1 if $] < 5.006;
eval q{ CPHASH->{bar} };
like $@, qr/^No such pseudo-hash field/, "test missing pseudo-hash field";
}