Permalink
Browse files

carped.t would fail if called with different slash in path

  • Loading branch information...
1 parent ccb13b9 commit e043d28de5a86629ca0ecafcf9e422421b26d7b5 @chorny committed Feb 25, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 t/carped.t
View
@@ -20,7 +20,7 @@ sub foo {
#my $tcarped = File::Spec->catfile('t','carped.t');
#$tcarped =~ s/\\/\//g if $^O eq 'MSWin32';
#also will not work on VMS
-my $tcarped = 't/carped.t';
+my $tcarped = $0; #'t/carped.t';
test_out "ok 1";
warnings_like {foo()} [map {qr/$_/} (1 .. 4)];

0 comments on commit e043d28

Please sign in to comment.