diff --git a/S16-unfiled/slurp.t b/S16-unfiled/slurp.t index 2c4ea623c6..fc27b8a7e6 100644 --- a/S16-unfiled/slurp.t +++ b/S16-unfiled/slurp.t @@ -14,7 +14,7 @@ my $self = 't/spec/S16-unfiled/slurp.t'; { my $contents = slurp $self; #ok index($contents, "StringThatsNowhereElse") != -1, "slurp() worked"; - ok $contents ~~ m/'StringThatsNowhereElse'/, "slurp() worked"; + ok $contents ~~ /'StringThatsNowhereElse'/, "slurp() worked"; } {