Merge branch 'ab/require-perl-5.8'

* ab/require-perl-5.8:
  perl: use "use warnings" instead of -w
  perl: bump the required Perl version to 5.8 from 5.6.[21]
This commit is contained in:
Junio C Hamano 2010-10-26 21:57:31 -07:00
Родитель 329351feeb 3328acedc6
Коммит 9b73ce74e6
16 изменённых файлов: 27 добавлений и 13 удалений

Просмотреть файл

@ -67,10 +67,10 @@ Issues of note:
- A POSIX-compliant shell is required to run many scripts needed - A POSIX-compliant shell is required to run many scripts needed
for everyday use (e.g. "bisect", "pull"). for everyday use (e.g. "bisect", "pull").
- "Perl" is needed to use some of the features (e.g. preparing a - "Perl" version 5.8 or later is needed to use some of the
partial commit using "git add -i/-p", interacting with svn features (e.g. preparing a partial commit using "git add -i/-p",
repositories with "git svn"). If you can live without these, use interacting with svn repositories with "git svn"). If you can
NO_PERL. live without these, use NO_PERL.
- "openssl" library is used by git-imap-send to use IMAP over SSL. - "openssl" library is used by git-imap-send to use IMAP over SSL.
If you don't need it, use NO_OPENSSL. If you don't need it, use NO_OPENSSL.

Просмотреть файл

@ -1,4 +1,4 @@
#!/usr/bin/perl -w #!/usr/bin/perl
# This tool is copyright (c) 2005, Matthias Urlichs. # This tool is copyright (c) 2005, Matthias Urlichs.
# It is released under the Gnu Public License, version 2. # It is released under the Gnu Public License, version 2.

Просмотреть файл

@ -1,4 +1,4 @@
#!/usr/bin/perl -w #!/usr/bin/perl
# #
# Copyright 2008-2009 Peter Krefting <peter@softwolves.pp.se> # Copyright 2008-2009 Peter Krefting <peter@softwolves.pp.se>
# #
@ -140,6 +140,7 @@ by whitespace or other characters.
# Globals # Globals
use strict; use strict;
use warnings;
use integer; use integer;
my $crlfmode = 0; my $crlfmode = 0;
my @revs; my @revs;

Просмотреть файл

@ -1,6 +1,8 @@
#!/usr/bin/perl -w #!/usr/bin/perl
use 5.008;
use strict; use strict;
use warnings;
use Git; use Git;
binmode(STDOUT, ":raw"); binmode(STDOUT, ":raw");

Просмотреть файл

@ -1,4 +1,4 @@
#!/usr/bin/perl -w #!/usr/bin/perl
# #
# This tool is copyright (c) 2005, Martin Langhoff. # This tool is copyright (c) 2005, Martin Langhoff.
# It is released under the Gnu Public License, version 2. # It is released under the Gnu Public License, version 2.
@ -54,6 +54,7 @@ and can contain multiple, unrelated branches.
=cut =cut
use 5.008;
use strict; use strict;
use warnings; use warnings;
use Getopt::Std; use Getopt::Std;

Просмотреть файл

@ -1,6 +1,8 @@
#!/usr/bin/perl -w #!/usr/bin/perl
use 5.008;
use strict; use strict;
use warnings;
use Getopt::Std; use Getopt::Std;
use File::Temp qw(tempdir); use File::Temp qw(tempdir);
use Data::Dumper; use Data::Dumper;

Просмотреть файл

@ -1,4 +1,4 @@
#!/usr/bin/perl -w #!/usr/bin/perl
# This tool is copyright (c) 2005, Matthias Urlichs. # This tool is copyright (c) 2005, Matthias Urlichs.
# It is released under the Gnu Public License, version 2. # It is released under the Gnu Public License, version 2.
@ -13,6 +13,7 @@
# The head revision is on branch "origin" by default. # The head revision is on branch "origin" by default.
# You can change that with the '-o' option. # You can change that with the '-o' option.
use 5.008;
use strict; use strict;
use warnings; use warnings;
use Getopt::Long; use Getopt::Long;

Просмотреть файл

@ -15,6 +15,7 @@
#### ####
#### ####
use 5.008;
use strict; use strict;
use warnings; use warnings;
use bytes; use bytes;

Просмотреть файл

@ -10,6 +10,7 @@
# #
# Any arguments that are unknown to this script are forwarded to 'git diff'. # Any arguments that are unknown to this script are forwarded to 'git diff'.
use 5.008;
use strict; use strict;
use warnings; use warnings;
use Cwd qw(abs_path); use Cwd qw(abs_path);

Просмотреть файл

@ -6,7 +6,7 @@
# #
# Scan two git object-trees, and hardlink any common objects between them. # Scan two git object-trees, and hardlink any common objects between them.
use 5.006; use 5.008;
use strict; use strict;
use warnings; use warnings;
use Getopt::Long; use Getopt::Long;

Просмотреть файл

@ -1,4 +1,4 @@
#!/usr/bin/perl -w #!/usr/bin/perl
# #
# Copyright 2002,2005 Greg Kroah-Hartman <greg@kroah.com> # Copyright 2002,2005 Greg Kroah-Hartman <greg@kroah.com>
# Copyright 2005 Ryan Anderson <ryan@michonline.com> # Copyright 2005 Ryan Anderson <ryan@michonline.com>
@ -16,6 +16,7 @@
# and second line is the subject of the message. # and second line is the subject of the message.
# #
use 5.008;
use strict; use strict;
use warnings; use warnings;
use Term::ReadLine; use Term::ReadLine;

Просмотреть файл

@ -1,6 +1,7 @@
#!/usr/bin/env perl #!/usr/bin/env perl
# Copyright (C) 2006, Eric Wong <normalperson@yhbt.net> # Copyright (C) 2006, Eric Wong <normalperson@yhbt.net>
# License: GPL v2 or later # License: GPL v2 or later
use 5.008;
use warnings; use warnings;
use strict; use strict;
use vars qw/ $AUTHOR $VERSION use vars qw/ $AUTHOR $VERSION

Просмотреть файл

@ -7,6 +7,7 @@
# #
# This program is licensed under the GPLv2 # This program is licensed under the GPLv2
use 5.008;
use strict; use strict;
use warnings; use warnings;
use CGI qw(:standard :escapeHTML -nosticky); use CGI qw(:standard :escapeHTML -nosticky);

Просмотреть файл

@ -7,6 +7,7 @@ Git - Perl interface to the Git version control system
package Git; package Git;
use 5.008;
use strict; use strict;

Просмотреть файл

@ -1,4 +1,5 @@
#!/usr/bin/perl #!/usr/bin/perl
use 5.008;
use strict; use strict;
use warnings; use warnings;
use IO::Pty; use IO::Pty;

Просмотреть файл

@ -1,7 +1,7 @@
#!/usr/bin/perl #!/usr/bin/perl
use lib (split(/:/, $ENV{GITPERLLIB})); use lib (split(/:/, $ENV{GITPERLLIB}));
use 5.006002; use 5.008;
use warnings; use warnings;
use strict; use strict;