# New Ticket Created by James deBoer
# Please include the string: [perl #32278]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org:80/rt3/Ticket/Display.html?id=32278 >
There are a number of .pl files within parrot/config.
Some of them have a she-bang line at the beginning of the script, others
do not.
This patch simply adds '#! perl -w' to the top of any script that didn't
have this line already.
- James
? gen/cpu/ChangeLog
Index: auto/aio.pl
===================================================================
RCS file: /cvs/public/parrot/config/auto/aio.pl,v
retrieving revision 1.1
diff -u -r1.1 aio.pl
--- auto/aio.pl 31 May 2004 11:54:46 -0000 1.1
+++ auto/aio.pl 1 Nov 2004 21:50:53 -0000
@@ -1,3 +1,4 @@
+#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
# $Id: aio.pl,v 1.1 2004/05/31 11:54:46 leo Exp $
Index: auto/alignptrs.pl
===================================================================
RCS file: /cvs/public/parrot/config/auto/alignptrs.pl,v
retrieving revision 1.12
diff -u -r1.12 alignptrs.pl
--- auto/alignptrs.pl 12 Aug 2004 09:10:10 -0000 1.12
+++ auto/alignptrs.pl 1 Nov 2004 21:50:53 -0000
@@ -1,3 +1,4 @@
+#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
# $Id: alignptrs.pl,v 1.12 2004/08/12 09:10:10 leo Exp $
Index: auto/gmp.pl
===================================================================
RCS file: /cvs/public/parrot/config/auto/gmp.pl,v
retrieving revision 1.3
diff -u -r1.3 gmp.pl
--- auto/gmp.pl 12 Oct 2004 09:00:15 -0000 1.3
+++ auto/gmp.pl 1 Nov 2004 21:50:53 -0000
@@ -1,3 +1,4 @@
+#! perl -w
# Copyright: 2001-2004 The Perl Foundation. All Rights Reserved.
# $Id: gmp.pl,v 1.3 2004/10/12 09:00:15 leo Exp $
Index: auto/inline.pl
===================================================================
RCS file: /cvs/public/parrot/config/auto/inline.pl,v
retrieving revision 1.4
diff -u -r1.4 inline.pl
--- auto/inline.pl 6 Mar 2004 22:24:30 -0000 1.4
+++ auto/inline.pl 1 Nov 2004 21:50:53 -0000
@@ -1,3 +1,4 @@
+#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
# $Id: inline.pl,v 1.4 2004/03/06 22:24:30 brentdax Exp $
Index: auto/isreg.pl
===================================================================
RCS file: /cvs/public/parrot/config/auto/isreg.pl,v
retrieving revision 1.3
diff -u -r1.3 isreg.pl
--- auto/isreg.pl 6 Mar 2004 22:24:30 -0000 1.3
+++ auto/isreg.pl 1 Nov 2004 21:50:53 -0000
@@ -1,3 +1,4 @@
+#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
# $Id: isreg.pl,v 1.3 2004/03/06 22:24:30 brentdax Exp $
Index: auto/jit.pl
===================================================================
RCS file: /cvs/public/parrot/config/auto/jit.pl,v
retrieving revision 1.34
diff -u -r1.34 jit.pl
--- auto/jit.pl 20 Oct 2004 08:03:13 -0000 1.34
+++ auto/jit.pl 1 Nov 2004 21:50:53 -0000
@@ -1,3 +1,4 @@
+#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
# $Id: jit.pl,v 1.34 2004/10/20 08:03:13 leo Exp $
Index: auto/memalign.pl
===================================================================
RCS file: /cvs/public/parrot/config/auto/memalign.pl,v
retrieving revision 1.11
diff -u -r1.11 memalign.pl
--- auto/memalign.pl 20 Oct 2004 08:03:13 -0000 1.11
+++ auto/memalign.pl 1 Nov 2004 21:50:53 -0000
@@ -1,3 +1,4 @@
+#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
# $Id: memalign.pl,v 1.11 2004/10/20 08:03:13 leo Exp $
Index: auto/pack.pl
===================================================================
RCS file: /cvs/public/parrot/config/auto/pack.pl,v
retrieving revision 1.5
diff -u -r1.5 pack.pl
--- auto/pack.pl 7 Mar 2004 09:50:34 -0000 1.5
+++ auto/pack.pl 1 Nov 2004 21:50:53 -0000
@@ -1,3 +1,4 @@
+#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
# $Id: pack.pl,v 1.5 2004/03/07 09:50:34 mikescott Exp $
Index: auto/signal.pl
===================================================================
RCS file: /cvs/public/parrot/config/auto/signal.pl,v
retrieving revision 1.7
diff -u -r1.7 signal.pl
--- auto/signal.pl 6 Mar 2004 22:24:30 -0000 1.7
+++ auto/signal.pl 1 Nov 2004 21:50:53 -0000
@@ -1,3 +1,4 @@
+#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
# $Id: signal.pl,v 1.7 2004/03/06 22:24:30 brentdax Exp $
Index: auto/sizes.pl
===================================================================
RCS file: /cvs/public/parrot/config/auto/sizes.pl,v
retrieving revision 1.12
diff -u -r1.12 sizes.pl
--- auto/sizes.pl 17 Aug 2004 08:47:55 -0000 1.12
+++ auto/sizes.pl 1 Nov 2004 21:50:53 -0000
@@ -1,3 +1,4 @@
+#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
# $Id: sizes.pl,v 1.12 2004/08/17 08:47:55 jhi Exp $
Index: gen/cpu/x86_64/auto.pl
===================================================================
RCS file: /cvs/public/parrot/config/gen/cpu/x86_64/auto.pl,v
retrieving revision 1.1
diff -u -r1.1 auto.pl
--- gen/cpu/x86_64/auto.pl 30 Oct 2004 06:59:54 -0000 1.1
+++ gen/cpu/x86_64/auto.pl 1 Nov 2004 21:50:53 -0000
@@ -1,3 +1,4 @@
+#! perl -w
=head1 NAME
config/gen/cpu/x86_64/auto.pl
Index: init/hints/aix.pl
===================================================================
RCS file: /cvs/public/parrot/config/init/hints/aix.pl,v
retrieving revision 1.3
diff -u -r1.3 aix.pl
--- init/hints/aix.pl 19 Mar 2004 12:33:11 -0000 1.3
+++ init/hints/aix.pl 1 Nov 2004 21:50:53 -0000
@@ -1,3 +1,4 @@
+#! perl -w
Configure::Data->set(
cc => 'cc_r',
link => 'cc_r',
Index: init/hints/cygwin.pl
===================================================================
RCS file: /cvs/public/parrot/config/init/hints/cygwin.pl,v
retrieving revision 1.8
diff -u -r1.8 cygwin.pl
--- init/hints/cygwin.pl 8 Oct 2004 07:08:33 -0000 1.8
+++ init/hints/cygwin.pl 1 Nov 2004 21:50:53 -0000
@@ -1,3 +1,4 @@
+#! perl -w
# cygwin's perl is compiled with -lutil, which for some reason is not
# in the standard installation, so we get rid of it
my $libs = Configure::Data->get('libs');
Index: init/hints/darwin.pl
===================================================================
RCS file: /cvs/public/parrot/config/init/hints/darwin.pl,v
retrieving revision 1.16
diff -u -r1.16 darwin.pl
--- init/hints/darwin.pl 24 Oct 2004 09:50:54 -0000 1.16
+++ init/hints/darwin.pl 1 Nov 2004 21:50:53 -0000
@@ -1,3 +1,4 @@
+#! perl -w
my($ccflags, $ldflags, $libs)=Configure::Data->get(qw(ccflags ldflags libs));
my $OSVers = `uname -r`;
Index: init/hints/dec_osf.pl
===================================================================
RCS file: /cvs/public/parrot/config/init/hints/dec_osf.pl,v
retrieving revision 1.8
diff -u -r1.8 dec_osf.pl
--- init/hints/dec_osf.pl 30 Jul 2004 13:16:37 -0000 1.8
+++ init/hints/dec_osf.pl 1 Nov 2004 21:50:53 -0000
@@ -1,3 +1,4 @@
+#! perl -w
# Tru64
my $ccflags = Configure::Data->get('ccflags');
if ( $ccflags !~ /-pthread/ ) {
Index: init/hints/freebsd.pl
===================================================================
RCS file: /cvs/public/parrot/config/init/hints/freebsd.pl,v
retrieving revision 1.3
diff -u -r1.3 freebsd.pl
--- init/hints/freebsd.pl 11 Jul 2004 17:03:03 -0000 1.3
+++ init/hints/freebsd.pl 1 Nov 2004 21:50:53 -0000
@@ -1,3 +1,4 @@
+#! perl -w
my $libs = Configure::Data->get('libs');
# get rid of old pthread-stuff, if any
Index: init/hints/hpux.pl
===================================================================
RCS file: /cvs/public/parrot/config/init/hints/hpux.pl,v
retrieving revision 1.1
diff -u -r1.1 hpux.pl
--- init/hints/hpux.pl 18 Oct 2003 23:51:10 -0000 1.1
+++ init/hints/hpux.pl 1 Nov 2004 21:50:53 -0000
@@ -1,3 +1,4 @@
+#! perl -w
my $libs = Configure::Data->get('libs');
if ( $libs !~ /-lpthread/ ) {
$libs .= ' -lpthread';
Index: init/hints/irix.pl
===================================================================
RCS file: /cvs/public/parrot/config/init/hints/irix.pl,v
retrieving revision 1.4
diff -u -r1.4 irix.pl
--- init/hints/irix.pl 9 Aug 2004 18:21:14 -0000 1.4
+++ init/hints/irix.pl 1 Nov 2004 21:50:53 -0000
@@ -1,3 +1,4 @@
+#! perl -w
my $ccflags = Configure::Data->get('ccflags') || "";
# 1185 An enumerated type is mixed with another type.
if ($ccflags =~ /-woff /) {
Index: init/hints/linux.pl
===================================================================
RCS file: /cvs/public/parrot/config/init/hints/linux.pl,v
retrieving revision 1.10
diff -u -r1.10 linux.pl
--- init/hints/linux.pl 8 Oct 2004 07:08:33 -0000 1.10
+++ init/hints/linux.pl 1 Nov 2004 21:50:53 -0000
@@ -1,3 +1,4 @@
+#! perl -w
my $libs = Configure::Data->get('libs');
my $cflags = Configure::Data->get('ccflags');
my $cc = Configure::Data->get('cc');
Index: init/hints/mswin32.pl
===================================================================
RCS file: /cvs/public/parrot/config/init/hints/mswin32.pl,v
retrieving revision 1.23
diff -u -r1.23 mswin32.pl
--- init/hints/mswin32.pl 8 Oct 2004 15:01:11 -0000 1.23
+++ init/hints/mswin32.pl 1 Nov 2004 21:50:53 -0000
@@ -1,3 +1,4 @@
+#! perl -w
{
my %args;
@[EMAIL PROTECTED]@_;
Index: init/hints/openbsd.pl
===================================================================
RCS file: /cvs/public/parrot/config/init/hints/openbsd.pl,v
retrieving revision 1.1
diff -u -r1.1 openbsd.pl
--- init/hints/openbsd.pl 18 Oct 2003 01:51:08 -0000 1.1
+++ init/hints/openbsd.pl 1 Nov 2004 21:50:53 -0000
@@ -1,3 +1,4 @@
+#! perl -w
my $ccflags = Configure::Data->get('ccflags');
if ( $ccflags !~ /-pthread/ ) {
Index: init/hints/os2.pl
===================================================================
RCS file: /cvs/public/parrot/config/init/hints/os2.pl,v
retrieving revision 1.1
diff -u -r1.1 os2.pl
--- init/hints/os2.pl 24 May 2002 06:24:27 -0000 1.1
+++ init/hints/os2.pl 1 Nov 2004 21:50:53 -0000
@@ -1,3 +1,4 @@
+#! perl -w
# This hints file is very specific to a particular os/2 configuration.
# A more general one would be appreciated, should anyone actually be
# using OS/2
Index: init/hints/solaris.pl
===================================================================
RCS file: /cvs/public/parrot/config/init/hints/solaris.pl,v
retrieving revision 1.4
diff -u -r1.4 solaris.pl
--- init/hints/solaris.pl 8 Sep 2004 12:42:51 -0000 1.4
+++ init/hints/solaris.pl 1 Nov 2004 21:50:53 -0000
@@ -1,3 +1,4 @@
+#! perl -w
my $libs = Configure::Data->get('libs');
if ( $libs !~ /-lpthread/ ) {
$libs .= ' -lpthread';
Index: init/hints/vms.pl
===================================================================
RCS file: /cvs/public/parrot/config/init/hints/vms.pl,v
retrieving revision 1.1
diff -u -r1.1 vms.pl
--- init/hints/vms.pl 24 May 2002 06:24:27 -0000 1.1
+++ init/hints/vms.pl 1 Nov 2004 21:50:53 -0000
@@ -1,3 +1,4 @@
+#! perl -w
Configure::Data->set(
ccflags =>
qq{/Standard=Relaxed_ANSI/Prefix=All/Obj=.obj/NoList/NOANSI_ALIAS/include="./include"},
perl => "MCR $^X",
