Mercurial > hg > octave-nkf > gnulib-hg
changeset 12217:e9550a750583
perl scripts: remove #!/usr/bin/perl in favor of more portable...
Rather than putting #!/usr/bin/perl on the first line,
start with a variant of what's recommended by "man perlrun" that
invokes the first "perl" program from your shell's search path.
* build-aux/gitlog-to-changelog: Replace #!... as above.
Add a "Local Variables" perl mode setting.
Prompted by a patch from Ludovic Courtès.
Improved by Eric Blake.
* build-aux/useless-if-before-free: Likewise.
* build-aux/announce-gen: Likewise.
* build-aux/update-copyright: Likewise.
author | Jim Meyering <meyering@redhat.com> |
---|---|
date | Fri, 30 Oct 2009 15:02:02 +0100 |
parents | 6d969d9c190a |
children | 751d5b272c72 |
files | ChangeLog build-aux/announce-gen build-aux/gitlog-to-changelog build-aux/update-copyright build-aux/useless-if-before-free |
diffstat | 5 files changed, 35 insertions(+), 14 deletions(-) [+] |
line wrap: on
line diff
--- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,17 @@ +2009-10-30 Jim Meyering <meyering@redhat.com> + + perl scripts: remove #!/usr/bin/perl in favor of more portable... + Rather than putting #!/usr/bin/perl on the first line, + start with a variant of what's recommended by "man perlrun" that + invokes the first "perl" program from your shell's search path. + * build-aux/gitlog-to-changelog: Replace #!... as above. + Add a "Local Variables" perl mode setting. + Prompted by a patch from Ludovic Courtès. + Improved by Eric Blake. + * build-aux/useless-if-before-free: Likewise. + * build-aux/announce-gen: Likewise. + * build-aux/update-copyright: Likewise. + 2009-10-29 Eric Blake <ebb9@byu.net> filenamecat-lgpl: adjust clients
--- a/build-aux/announce-gen +++ b/build-aux/announce-gen @@ -1,7 +1,9 @@ -#!/usr/bin/perl -w +eval '(exit $?0)' && eval 'exec perl -wS "$0" ${1+"$@"}' + & eval 'exec perl -wS "$0" $argv:q' + if 0; # Generate a release announcement message. -my $VERSION = '2009-09-11 09:50'; # UTC +my $VERSION = '2009-10-30 15:59'; # UTC # The definition above must lie within the first 8 lines in order # for the Emacs time-stamp write hook (at end) to update it. # If you change this file with Emacs, please let the write hook @@ -476,19 +478,15 @@ ### Setup "GNU" style for perl-mode and cperl-mode. ## Local Variables: +## mode: perl ## perl-indent-level: 2 ## perl-continued-statement-offset: 2 ## perl-continued-brace-offset: 0 ## perl-brace-offset: 0 ## perl-brace-imaginary-offset: 0 ## perl-label-offset: -2 -## cperl-indent-level: 2 -## cperl-brace-offset: 0 -## cperl-continued-brace-offset: 0 -## cperl-label-offset: -2 -## cperl-extra-newline-before-brace: t -## cperl-merge-trailing-else: nil -## cperl-continued-statement-offset: 2 +## perl-extra-newline-before-brace: t +## perl-merge-trailing-else: nil ## eval: (add-hook 'write-file-hooks 'time-stamp) ## time-stamp-start: "my $VERSION = '" ## time-stamp-format: "%:y-%02m-%02d %02H:%02M"
--- a/build-aux/gitlog-to-changelog +++ b/build-aux/gitlog-to-changelog @@ -1,7 +1,9 @@ -#!/usr/bin/perl +eval '(exit $?0)' && eval 'exec perl -wS "$0" ${1+"$@"}' + & eval 'exec perl -wS "$0" $argv:q' + if 0; # Convert git log output to ChangeLog format. -my $VERSION = '2009-08-12 16:49'; # UTC +my $VERSION = '2009-10-30 13:46'; # UTC # The definition above must lie within the first 8 lines in order # for the Emacs time-stamp write hook (at end) to update it. # If you change this file with Emacs, please let the write hook @@ -179,6 +181,7 @@ } # Local Variables: +# mode: perl # indent-tabs-mode: nil # eval: (add-hook 'write-file-hooks 'time-stamp) # time-stamp-start: "my $VERSION = '"
--- a/build-aux/update-copyright +++ b/build-aux/update-copyright @@ -1,7 +1,9 @@ -#!/usr/bin/perl -0777 -pi +eval '(exit $?0)' && eval 'exec perl -wS -0777 -pi "$0" ${1+"$@"}' + & eval 'exec perl -wS -0777 -pi "$0" $argv:q' + if 0; # Update an FSF copyright year list to include the current year. -my $VERSION = '2009-09-09.22:00'; # UTC +my $VERSION = '2009-10-30.15:57'; # UTC # Copyright (C) 2009 Free Software Foundation, Inc. # @@ -249,6 +251,7 @@ } # Local variables: +# mode: perl # indent-tabs-mode: nil # eval: (add-hook 'write-file-hooks 'time-stamp) # time-stamp-start: "my $VERSION = '"
--- a/build-aux/useless-if-before-free +++ b/build-aux/useless-if-before-free @@ -1,4 +1,6 @@ -#!/usr/bin/perl -T +eval '(exit $?0)' && eval 'exec perl -wST "$0" ${1+"$@"}' + & eval 'exec perl -wST "$0" $argv:q' + if 0; # Detect instances of "if (p) free (p);". # Likewise for "if (p != NULL) free (p);". And with braces. # Also detect "if (NULL != p) free (p);". @@ -197,6 +199,7 @@ EOF ## Local Variables: +## mode: perl ## indent-tabs-mode: nil ## eval: (add-hook 'write-file-hooks 'time-stamp) ## time-stamp-start: "my $VERSION = '"