This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Use .\ instead of ./ on Windows
authorJan Dubois <jand@activestate.com>
Wed, 21 Jul 2010 00:50:46 +0000 (17:50 -0700)
committerJan Dubois <jand@activestate.com>
Wed, 21 Jul 2010 00:50:46 +0000 (17:50 -0700)
t/porting/authors.t

index da8cf95..76aac55 100644 (file)
@@ -14,6 +14,7 @@ if (! -d '.git' ) {
     exit 0;
 }
 
-system("git log --pretty=fuller | ./perl -Ilib Porting/checkAUTHORS.pl --tap --acknowledged AUTHORS -");
+my $dotslash = $^O eq "MSWin32" ? ".\\" : "./";
+system("git log --pretty=fuller | ${dotslash}perl -Ilib Porting/checkAUTHORS.pl --tap --acknowledged AUTHORS -");
 
 # EOF