From c0c2ae0bf1e88ec807ad9868c8a3f07388a25511 Mon Sep 17 00:00:00 2001 From: Doug Bell Date: Wed, 3 Sep 2014 23:29:48 -0500 Subject: perl wants "use utf8" when UTF-8 is in the source When there are literal UTF-8 characters in the source, "use utf8" will tell Perl to set the utf8 flag on strings. --- runtests.pl | 1 + 1 file changed, 1 insertion(+) (limited to 'runtests.pl') diff --git a/runtests.pl b/runtests.pl index 5facbe6..ce72931 100644 --- a/runtests.pl +++ b/runtests.pl @@ -1,6 +1,7 @@ #!/usr/bin/env perl use warnings; use strict; +use utf8; use Term::ANSIColor; use IO::Handle; use IPC::Open2; -- cgit v1.2.3 From d67a01b8619e59785ac3825c46c2ce8ce2e31b11 Mon Sep 17 00:00:00 2001 From: Doug Bell Date: Wed, 3 Sep 2014 23:31:55 -0500 Subject: require at least Perl 5.6 The core modules and pragmas being used require at least Perl 5.6 in order to work. Explicitly saying "use 5.006" will make the error more clear. --- runtests.pl | 1 + 1 file changed, 1 insertion(+) (limited to 'runtests.pl') diff --git a/runtests.pl b/runtests.pl index ce72931..7bffe81 100644 --- a/runtests.pl +++ b/runtests.pl @@ -1,4 +1,5 @@ #!/usr/bin/env perl +use 5.006; use warnings; use strict; use utf8; -- cgit v1.2.3 From 23fee89e91244d720c5321ab3ab2ad0293ae5014 Mon Sep 17 00:00:00 2001 From: Doug Bell Date: Wed, 3 Sep 2014 23:33:29 -0500 Subject: do not buffer STDOUT This ensures that the status line printed to STDERR at the very end of the script will appear after all other script output. --- runtests.pl | 1 + 1 file changed, 1 insertion(+) (limited to 'runtests.pl') diff --git a/runtests.pl b/runtests.pl index 7bffe81..370b43c 100644 --- a/runtests.pl +++ b/runtests.pl @@ -6,6 +6,7 @@ use utf8; use Term::ANSIColor; use IO::Handle; use IPC::Open2; +$|++; my $usage="runtests.pl PROGRAM SPEC\nSet ANSI_COLORS_DISABLED=1 if you redirect to a file.\nSet PATT='...' to restrict tests to sections matching a regex.\n"; -- cgit v1.2.3