Permalink
Browse files

.first instead of .grep

  • Loading branch information...
1 parent 8606562 commit 3b42e0f50989bae43e8342c057690d3f5063f290 @FROGGS committed Sep 14, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 t/00_load.t
View
@@ -12,5 +12,5 @@ _can_ok $_ for <canonpath catdir catfile curdir devnull rootdir tmpdir
join splitpath splitdir catpath abs2rel rel2abs>;
sub _can_ok( $method ) {
- ok File::Spec.^methods.grep( $method ), "we can call File::Spec.$method"
+ ok File::Spec.^methods.first( $method ), "we can call File::Spec.$method"
}

0 comments on commit 3b42e0f

Please sign in to comment.