From ab59c97f4b9f574d8f49c67334cee3551ebcb7fc Mon Sep 17 00:00:00 2001
From: Andrew Johnson <anj@anl.gov>
Date: Wed, 24 Oct 2018 14:59:48 -0500
Subject: [PATCH] Minor Perl tidying up

---
 src/tools/makeTestfile.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/tools/makeTestfile.pl b/src/tools/makeTestfile.pl
index fb431fe7a..7d298768f 100644
--- a/src/tools/makeTestfile.pl
+++ b/src/tools/makeTestfile.pl
@@ -42,7 +42,7 @@ if( $TA =~ /^win32-x86/ && $HA !~ /^win/ ) {
 
 # Explicitly fail for other RTEMS targets
 } elsif( $TA =~ /^RTEMS-/ ) {
-  die "I don't know how to run tests for $TA on $HA";
+  die "$0: I don't know how to create scripts for testing $TA on $HA\n";
 
 } else {
   $exec = "./$exe";
@@ -51,7 +51,7 @@ if( $TA =~ /^win32-x86/ && $HA !~ /^win/ ) {
 open(my $OUT, '>', $target) or die "Can't create $target: $!\n";
 
 print $OUT <<EOF;
-#!/usr/bin/perl
+#!/usr/bin/env perl
 
 use strict;
 use Cwd 'abs_path';