develooper Front page | perl.perl5.porters | Postings from September 2013

[perl #119625] [PATCH] e7c16d9 Update README copyright to 2013, and add test

Thread Previous
From:
Smylers
Date:
September 5, 2013 14:00
Subject:
[perl #119625] [PATCH] e7c16d9 Update README copyright to 2013, and add test
Message ID:
rt-3.6.HEAD-1873-1378389610-1628.119625-75-0@perl.org
# New Ticket Created by  Smylers 
# Please include the string:  [perl #119625]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=119625 >



This is a bug report for perl from smylers@stripey.com,
generated with the help of perlbug 1.39 running under perl 5.19.4.

>From e7c16d9cd2ac4cb537a3e050a876d6ccf05e01c9 Mon Sep 17 00:00:00 2001
From: Smylers <Smylers@stripey.com>
Date: Thu, 5 Sep 2013 14:57:35 +0100
Subject: [PATCH] Update README copyright to 2013, and add test
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="------------1.8.1.2"

This is a multi-part message in MIME format.
--------------1.8.1.2
Content-Type: text/plain; charset=UTF-8; format=fixed
Content-Transfer-Encoding: 8bit

---
 MANIFEST              |  1 +
 README                |  4 ++--
 t/porting/copyright.t | 24 ++++++++++++++++++++++++
 3 files changed, 27 insertions(+), 2 deletions(-)
 create mode 100644 t/porting/copyright.t


--------------1.8.1.2
Content-Type: text/x-patch; name="0001-Update-README-copyright-to-2013-and-add-test.patch"
Content-Transfer-Encoding: 8bit
Content-Disposition: attachment; filename="0001-Update-README-copyright-to-2013-and-add-test.patch"

diff --git a/MANIFEST b/MANIFEST
index ed47bd3..caf6504 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -5373,6 +5373,7 @@ t/porting/bincompat.t		Check that {non_,}bincompat_options are ordered
 t/porting/checkcase.t		Check whether we are case-insensitive-fs-friendly
 t/porting/checkcfgvar.t		Check that all config.sh-like files are good
 t/porting/cmp_version.t		Test whether all changed module files have their VERSION bumped
+t/porting/copyright.t		Check that copyright year is up to date
 t/porting/customized.dat		Data file for porting/customized.t
 t/porting/customized.t		Check all CUSTOMIZED files are as they should be
 t/porting/diag.t		Test completeness of perldiag.pod
diff --git a/README b/README
index 2967921..5cf3a9e 100644
--- a/README
+++ b/README
@@ -1,6 +1,6 @@
 Perl is Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
-2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012
-by Larry Wall and others.  All rights reserved.
+2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012,
+2013 by Larry Wall and others.  All rights reserved.
 
 
 
diff --git a/t/porting/copyright.t b/t/porting/copyright.t
new file mode 100644
index 0000000..48ea7b4
--- /dev/null
+++ b/t/porting/copyright.t
@@ -0,0 +1,24 @@
+#!perl
+
+=head1 NAME
+
+copyright.t
+
+=head1 DESCRIPTION
+
+Tests that the copyright notice in the top-level README file includes the
+current year.
+
+=cut
+
+
+BEGIN { chdir 't'; require './test.pl' }
+
+
+open my $readme, '<', '../README' or die "Opening README failed: $!";
+local $/ = '';
+my $copyright_msg = <$readme>;
+my $year = (gmtime)[5] + 1900;
+like $copyright_msg, qr/\b$year\b/, 'current year in README copyright message';
+
+done_testing;

--------------1.8.1.2--


---
Flags:
    category=docs
    severity=low
---
Site configuration information for perl 5.19.4:

Configured by smylers at Thu Sep  5 14:42:23 BST 2013.

Summary of my perl5 (revision 5 version 19 subversion 4) configuration:
  Derived from: 49819382e088a19bed610c193947430231d2761d
  Platform:
    osname=linux, osvers=3.8.0-30-generic, archname=x86_64-linux
    uname='linux fozzie 3.8.0-30-generic #44-ubuntu smp thu aug 22 20:52:24 utc 2013 x86_64 x86_64 x86_64 gnulinux '
    config_args='-des -Dusedevel'
    hint=recommended, useposix=true, d_sigaction=define
    useithreads=undef, usemultiplicity=undef
    useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
    use64bitint=define, use64bitall=define, uselongdouble=undef
    usemymalloc=n, bincompat5005=undef
  Compiler:
    cc='cc', ccflags ='-fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
    optimize='-O2',
    cppflags='-fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include'
    ccversion='', gccversion='4.7.3', gccosandvers=''
    intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
    ivtype='long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
    alignbytes=8, prototype=define
  Linker and Libraries:
    ld='cc', ldflags =' -fstack-protector -L/usr/local/lib'
    libpth=/usr/local/lib /lib/x86_64-linux-gnu /lib/../lib /usr/lib/x86_64-linux-gnu /usr/lib/../lib /lib /usr/lib
    libs=-lnsl -ldl -lm -lcrypt -lutil -lc
    perllibs=-lnsl -ldl -lm -lcrypt -lutil -lc
    libc=, so=so, useshrplib=false, libperl=libperl.a
    gnulibc_version='2.17'
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
    cccdlflags='-fPIC', lddlflags='-shared -O2 -L/usr/local/lib -fstack-protector'

Locally applied patches:
    uncommitted-changes

---
@INC for perl 5.19.4:
    lib
    /home/smylers/lib/perl5/site_perl
    /home/smylers/lib/perl5
    /usr/local/lib/perl5/site_perl/5.19.4/x86_64-linux
    /usr/local/lib/perl5/site_perl/5.19.4
    /usr/local/lib/perl5/5.19.4/x86_64-linux
    /usr/local/lib/perl5/5.19.4
    .

---
Environment for perl 5.19.4:
    HOME=/home/smylers
    LANG=en_GB.utf8
    LANGUAGE=en_GB:en
    LC_COLLATE=C
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PATH=/home/smylers/bin:/usr/local/sbin:/usr/local/bin:/sbin:/bin:/usr/sbin:/usr/bin:/usr/X11R6/bin:/usr/games
    PERL5LIB=/home/smylers/lib/perl5/site_perl:/home/smylers/lib/perl5
    PERL_BADLANG (unset)
    PERL_CPANM_OPT=--sudo --prompt
    SHELL=/bin/bash


Thread Previous


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About