Hello community,
here is the log from the commit of package perl-Template-Toolkit for
openSUSE:Factory checked in at 2020-01-14 21:09:45
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Template-Toolkit (Old)
and /work/SRC/openSUSE:Factory/.perl-Template-Toolkit.new.6675 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Template-Toolkit"
Tue Jan 14 21:09:45 2020 rev:35 rq:764277 version:3.004
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Template-Toolkit/perl-Template-Toolkit.changes
2019-12-30 12:35:02.491811299 +0100
+++
/work/SRC/openSUSE:Factory/.perl-Template-Toolkit.new.6675/perl-Template-Toolkit.changes
2020-01-14 21:13:24.750932691 +0100
@@ -1,0 +2,6 @@
+Tue Jan 14 03:12:38 UTC 2020 - <[email protected]>
+
+- updated to 3.004
+ see /usr/share/doc/packages/perl-Template-Toolkit/Changes
+
+-------------------------------------------------------------------
Old:
----
Template-Toolkit-3.003.tar.gz
New:
----
Template-Toolkit-3.004.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Template-Toolkit.spec ++++++
--- /var/tmp/diff_new_pack.RPjNbC/_old 2020-01-14 21:13:26.026933271 +0100
+++ /var/tmp/diff_new_pack.RPjNbC/_new 2020-01-14 21:13:26.030933273 +0100
@@ -1,7 +1,7 @@
#
# spec file for package perl-Template-Toolkit
#
-# Copyright (c) 2019 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2020 SUSE LINUX GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -17,7 +17,7 @@
Name: perl-Template-Toolkit
-Version: 3.003
+Version: 3.004
Release: 0
%define cpan_name Template-Toolkit
Summary: Template Processing System
++++++ Template-Toolkit-3.003.tar.gz -> Template-Toolkit-3.004.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/Changes
new/Template-Toolkit-3.004/Changes
--- old/Template-Toolkit-3.003/Changes 2019-12-27 18:07:42.000000000 +0100
+++ new/Template-Toolkit-3.004/Changes 2020-01-13 19:13:12.000000000 +0100
@@ -11,9 +11,11 @@
#========================================================================
#-----------------------------------------------------------------------
-# Unreleased
+# Version 3.004 - 13th January 2020
#------------------------------------------------------------------------
+* Use three-args open - fixes CVE-2019-19781
+
#-----------------------------------------------------------------------
# Version 3.003 - 27th December 2019
#------------------------------------------------------------------------
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/META.json
new/Template-Toolkit-3.004/META.json
--- old/Template-Toolkit-3.003/META.json 2019-12-27 18:08:45.000000000
+0100
+++ new/Template-Toolkit-3.004/META.json 2020-01-13 19:14:08.000000000
+0100
@@ -57,6 +57,6 @@
"web" : "https://github.com/abw/Template2";
}
},
- "version" : "3.003",
+ "version" : "3.004",
"x_serialization_backend" : "JSON::PP version 2.27400_02"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/META.yml
new/Template-Toolkit-3.004/META.yml
--- old/Template-Toolkit-3.003/META.yml 2019-12-27 18:08:45.000000000 +0100
+++ new/Template-Toolkit-3.004/META.yml 2020-01-13 19:14:07.000000000 +0100
@@ -28,5 +28,5 @@
bugtracker: https://github.com/abw/Template2/issues
homepage: http://www.template-toolkit.org
repository: https://github.com/abw/Template2.git
-version: '3.003'
+version: '3.004'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/Makefile.PL
new/Template-Toolkit-3.004/Makefile.PL
--- old/Template-Toolkit-3.003/Makefile.PL 2019-12-27 18:05:59.000000000
+0100
+++ new/Template-Toolkit-3.004/Makefile.PL 2020-01-13 19:12:53.000000000
+0100
@@ -344,7 +344,7 @@
#--------------------------------------------------------------------
sub write_defaults {
- open(FP, "> $DEFAULTS_FILE") || die "$DEFAULTS_FILE: $!\n";
+ open(FP, ">", $DEFAULTS_FILE) || die "$DEFAULTS_FILE: $!\n";
my ( $ttxs_enable, $ttxs_default )
= map { $_ ? 'y' : 'n' }
( $TT_XS_ENABLE, $TT_XS_DEFAULT );
@@ -375,14 +375,14 @@
$find = quotemeta($find);
- open(FP, "< $file") || die "$file: $!\n";
+ open(FP, "<", $file) || die "$file: $!\n";
my $text = <FP>;
close(FP);
($text =~ s/^(\s*${find}\s*=\s*)'.*?'/$1'$fix'/m)
|| die "$find not found in $file\n";
- open(FP, "> $file") || die "$file: $!\n";
+ open(FP, ">", $file) || die "$file: $!\n";
print FP $text;
close(FP);
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/bin/tt-bench.pl
new/Template-Toolkit-3.004/bin/tt-bench.pl
--- old/Template-Toolkit-3.003/bin/tt-bench.pl 2018-10-05 23:06:30.000000000
+0200
+++ new/Template-Toolkit-3.004/bin/tt-bench.pl 2020-01-13 19:12:53.000000000
+0100
@@ -124,7 +124,7 @@
} else {
$template = "$TMPDIR/testing.tmpl";
unlink $template;
- open FH, ">$template";
+ open FH, ">", $template;
while(<DATA>) { last if /^__END__/; print FH; } close FH;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/bin/ttree
new/Template-Toolkit-3.004/bin/ttree
--- old/Template-Toolkit-3.003/bin/ttree 2019-12-23 23:25:14.000000000
+0100
+++ new/Template-Toolkit-3.004/bin/ttree 2020-01-13 19:12:53.000000000
+0100
@@ -694,7 +694,7 @@
sub write_config {
my $file = shift;
- open(CONFIG, ">$file") || die "failed to create $file: $!\n";
+ open(CONFIG, ">", $file) || die "failed to create $file: $!\n";
print(CONFIG <<END_OF_CONFIG);
#------------------------------------------------------------------------
# sample .ttreerc file created automatically by $NAME version $VERSION
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/Base.pm
new/Template-Toolkit-3.004/lib/Template/Base.pm
--- old/Template-Toolkit-3.003/lib/Template/Base.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Base.pm 2020-01-13
19:13:07.000000000 +0100
@@ -23,7 +23,7 @@
use warnings;
use Template::Constants;
-our $VERSION = '3.003';
+our $VERSION = '3.004';
#------------------------------------------------------------------------
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/Config.pm
new/Template-Toolkit-3.004/lib/Template/Config.pm
--- old/Template-Toolkit-3.003/lib/Template/Config.pm 2019-12-27
18:08:42.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Config.pm 2020-01-13
19:13:59.000000000 +0100
@@ -22,7 +22,7 @@
use warnings;
use base 'Template::Base';
-our $VERSION = '3.003';
+our $VERSION = '3.004';
our $DEBUG;
$DEBUG = 0 unless defined $DEBUG;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/Constants.pm
new/Template-Toolkit-3.004/lib/Template/Constants.pm
--- old/Template-Toolkit-3.003/lib/Template/Constants.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Constants.pm 2020-01-13
19:13:07.000000000 +0100
@@ -28,7 +28,7 @@
our ( @EXPORT_OK, %EXPORT_TAGS );
our ( $DEBUG_OPTIONS, @STATUS, @ERROR, @CHOMP, @DEBUG, @ISA );
-our $VERSION = '3.003';
+our $VERSION = '3.004';
#========================================================================
# ----- EXPORTER -----
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/Context.pm
new/Template-Toolkit-3.004/lib/Template/Context.pm
--- old/Template-Toolkit-3.003/lib/Template/Context.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Context.pm 2020-01-13
19:13:07.000000000 +0100
@@ -35,7 +35,7 @@
use constant BADGER_EXCEPTION => 'Badger::Exception';
use constant MSWin32 => $^O eq 'MSWin32';
-our $VERSION = '3.003';
+our $VERSION = '3.004';
our $DEBUG = 0 unless defined $DEBUG;
our $DEBUG_FORMAT = "\n## \$file line \$line : [% \$text %] ##\n";
our $VIEW_CLASS = 'Template::View';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/Directive.pm
new/Template-Toolkit-3.004/lib/Template/Directive.pm
--- old/Template-Toolkit-3.003/lib/Template/Directive.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Directive.pm 2020-01-13
19:13:07.000000000 +0100
@@ -32,7 +32,7 @@
use Template::Constants;
use Template::Exception;
-our $VERSION = '3.003';
+our $VERSION = '3.004';
our $DEBUG = 0 unless defined $DEBUG;
our $WHILE_MAX = 1000 unless defined $WHILE_MAX;
our $PRETTY = 0 unless defined $PRETTY;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/Document.pm
new/Template-Toolkit-3.004/lib/Template/Document.pm
--- old/Template-Toolkit-3.003/lib/Template/Document.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Document.pm 2020-01-13
19:13:07.000000000 +0100
@@ -26,7 +26,7 @@
use base 'Template::Base';
use Template::Constants;
-our $VERSION = '3.003';
+our $VERSION = '3.004';
our $DEBUG = 0 unless defined $DEBUG;
our $ERROR = '';
our ($COMPERR, $AUTOLOAD, $UNICODE);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/Exception.pm
new/Template-Toolkit-3.004/lib/Template/Exception.pm
--- old/Template-Toolkit-3.003/lib/Template/Exception.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Exception.pm 2020-01-13
19:13:07.000000000 +0100
@@ -26,7 +26,7 @@
use constant TEXT => 2;
use overload q|""| => "as_string", fallback => 1;
-our $VERSION = '3.003';
+our $VERSION = '3.004';
#------------------------------------------------------------------------
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/Filters.pm
new/Template-Toolkit-3.004/lib/Template/Filters.pm
--- old/Template-Toolkit-3.003/lib/Template/Filters.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Filters.pm 2020-01-13
19:13:07.000000000 +0100
@@ -26,7 +26,7 @@
use Template::Constants;
use Scalar::Util 'blessed';
-our $VERSION = '3.003';
+our $VERSION = '3.004';
our $AVAILABLE = { };
our $TRUNCATE_LENGTH = 32;
our $TRUNCATE_ADDON = '...';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/Grammar.pm
new/Template-Toolkit-3.004/lib/Template/Grammar.pm
--- old/Template-Toolkit-3.003/lib/Template/Grammar.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Grammar.pm 2020-01-13
19:13:07.000000000 +0100
@@ -30,7 +30,7 @@
use strict;
use warnings;
-our $VERSION = '3.003';
+our $VERSION = '3.004';
my (@RESERVED, %CMPOP, $LEXTABLE, $RULES, $STATES);
my ($factory, $rawstart);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/Iterator.pm
new/Template-Toolkit-3.004/lib/Template/Iterator.pm
--- old/Template-Toolkit-3.003/lib/Template/Iterator.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Iterator.pm 2020-01-13
19:13:07.000000000 +0100
@@ -31,7 +31,7 @@
use constant ODD => 'odd';
use constant EVEN => 'even';
-our $VERSION = '3.003';
+our $VERSION = '3.004';
our $DEBUG = 0 unless defined $DEBUG;
our $AUTOLOAD;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Template-Toolkit-3.003/lib/Template/Manual/Config.pod
new/Template-Toolkit-3.004/lib/Template/Manual/Config.pod
--- old/Template-Toolkit-3.003/lib/Template/Manual/Config.pod 2019-12-27
17:39:32.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Manual/Config.pod 2020-01-13
19:12:53.000000000 +0100
@@ -1149,7 +1149,7 @@
example 3 (file handle):
- open (TOUT, "> $file") || die "$file: $!\n";
+ open (TOUT, ">", $file) || die "$file: $!\n";
my $template = Template->new({
OUTPUT => \*TOUT,
});
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Template-Toolkit-3.003/lib/Template/Manual/Variables.pod
new/Template-Toolkit-3.004/lib/Template/Manual/Variables.pod
--- old/Template-Toolkit-3.003/lib/Template/Manual/Variables.pod
2018-10-05 23:06:30.000000000 +0200
+++ new/Template-Toolkit-3.004/lib/Template/Manual/Variables.pod
2020-01-13 17:21:49.000000000 +0100
@@ -496,7 +496,7 @@
stored in a variable.
[% uid = 'abw' %]
- [% users.$uid %] # same as 'userlist.abw'
+ [% users.$uid %] # same as 'users.abw'
Curly braces can be used to delimit interpolated variable names where
necessary.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Template-Toolkit-3.003/lib/Template/Namespace/Constants.pm
new/Template-Toolkit-3.004/lib/Template/Namespace/Constants.pm
--- old/Template-Toolkit-3.003/lib/Template/Namespace/Constants.pm
2019-12-27 18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Namespace/Constants.pm
2020-01-13 19:13:07.000000000 +0100
@@ -26,7 +26,7 @@
use Template::Directive;
use Template::Exception;
-our $VERSION = '3.003';
+our $VERSION = '3.004';
our $DEBUG = 0 unless defined $DEBUG;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/Parser.pm
new/Template-Toolkit-3.004/lib/Template/Parser.pm
--- old/Template-Toolkit-3.003/lib/Template/Parser.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Parser.pm 2020-01-13
19:13:07.000000000 +0100
@@ -46,7 +46,7 @@
use constant ERROR => 2;
use constant ABORT => 3;
-our $VERSION = '3.003';
+our $VERSION = '3.004';
our $DEBUG = 0 unless defined $DEBUG;
our $ERROR = '';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/Plugin/Assert.pm
new/Template-Toolkit-3.004/lib/Template/Plugin/Assert.pm
--- old/Template-Toolkit-3.003/lib/Template/Plugin/Assert.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Plugin/Assert.pm 2020-01-13
19:13:07.000000000 +0100
@@ -23,7 +23,7 @@
use warnings;
use Template::Exception;
-our $VERSION = '3.003';
+our $VERSION = '3.004';
our $MONAD = 'Template::Monad::Assert';
our $EXCEPTION = 'Template::Exception';
our $AUTOLOAD;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/Plugin/CGI.pm
new/Template-Toolkit-3.004/lib/Template/Plugin/CGI.pm
--- old/Template-Toolkit-3.003/lib/Template/Plugin/CGI.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Plugin/CGI.pm 2020-01-13
19:13:07.000000000 +0100
@@ -23,7 +23,7 @@
use base 'Template::Plugin';
use CGI;
-our $VERSION = '3.003';
+our $VERSION = '3.004';
sub new {
my $class = shift;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Template-Toolkit-3.003/lib/Template/Plugin/Datafile.pm
new/Template-Toolkit-3.004/lib/Template/Plugin/Datafile.pm
--- old/Template-Toolkit-3.003/lib/Template/Plugin/Datafile.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Plugin/Datafile.pm 2020-01-13
19:13:07.000000000 +0100
@@ -23,7 +23,7 @@
use warnings;
use base 'Template::Plugin';
-our $VERSION = '3.003';
+our $VERSION = '3.004';
sub new {
my ($class, $context, $filename, $params) = @_;
@@ -36,11 +36,11 @@
$delim = $params->{'delim'} || ':';
$delim = quotemeta($delim);
- return $class->fail("No filename specified")
+ return $class->error("No filename specified")
unless $filename;
- open(FD, $filename)
- || return $class->fail("$filename: $!");
+ open(FD, '<', $filename)
+ || return $class->error("$filename: $!");
# first line of file should contain field definitions
while (! $line || $line =~ /^#/) {
@@ -50,7 +50,7 @@
}
(@fields = split(/\s*$delim\s*/, $line))
- || return $class->fail("first line of file must contain field names");
+ || return $class->error("first line of file must contain field names");
# read each line of the file
while (<FD>) {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/Plugin/Date.pm
new/Template-Toolkit-3.004/lib/Template/Plugin/Date.pm
--- old/Template-Toolkit-3.003/lib/Template/Plugin/Date.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Plugin/Date.pm 2020-01-13
19:13:07.000000000 +0100
@@ -30,7 +30,7 @@
use constant HAS_SETLOCALE => $Config::Config{d_setlocale};
-our $VERSION = '3.003';
+our $VERSION = '3.004';
our $FORMAT = '%H:%M:%S %d-%b-%Y'; # default strftime() format
our @LOCALE_SUFFIX = qw( .ISO8859-1 .ISO_8859-15 .US-ASCII .UTF-8 );
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Template-Toolkit-3.003/lib/Template/Plugin/Directory.pm
new/Template-Toolkit-3.004/lib/Template/Plugin/Directory.pm
--- old/Template-Toolkit-3.003/lib/Template/Plugin/Directory.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Plugin/Directory.pm 2020-01-13
19:13:07.000000000 +0100
@@ -26,7 +26,7 @@
use Template::Plugin::File;
use base 'Template::Plugin::File';
-our $VERSION = '3.003';
+our $VERSION = '3.004';
#------------------------------------------------------------------------
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/Plugin/Dumper.pm
new/Template-Toolkit-3.004/lib/Template/Plugin/Dumper.pm
--- old/Template-Toolkit-3.003/lib/Template/Plugin/Dumper.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Plugin/Dumper.pm 2020-01-13
19:13:07.000000000 +0100
@@ -24,7 +24,7 @@
use base 'Template::Plugin';
use Data::Dumper;
-our $VERSION = '3.003';
+our $VERSION = '3.004';
our $DEBUG = 0 unless defined $DEBUG;
our @DUMPER_ARGS = qw( Indent Pad Varname Purity Useqq Terse Freezer
Toaster Deepcopy Quotekeys Bless Maxdepth Sortkeys );
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/Plugin/File.pm
new/Template-Toolkit-3.004/lib/Template/Plugin/File.pm
--- old/Template-Toolkit-3.003/lib/Template/Plugin/File.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Plugin/File.pm 2020-01-13
19:13:07.000000000 +0100
@@ -28,7 +28,7 @@
use File::Basename;
use base 'Template::Plugin';
-our $VERSION = '3.003';
+our $VERSION = '3.004';
our @STAT_KEYS = qw( dev ino mode nlink uid gid rdev size
atime mtime ctime blksize blocks );
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/Plugin/Filter.pm
new/Template-Toolkit-3.004/lib/Template/Plugin/Filter.pm
--- old/Template-Toolkit-3.003/lib/Template/Plugin/Filter.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Plugin/Filter.pm 2020-01-13
19:13:07.000000000 +0100
@@ -26,7 +26,7 @@
use Scalar::Util 'weaken', 'isweak';
-our $VERSION = '3.003';
+our $VERSION = '3.004';
our $DYNAMIC = 0 unless defined $DYNAMIC;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/Plugin/Format.pm
new/Template-Toolkit-3.004/lib/Template/Plugin/Format.pm
--- old/Template-Toolkit-3.003/lib/Template/Plugin/Format.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Plugin/Format.pm 2020-01-13
19:13:07.000000000 +0100
@@ -23,7 +23,7 @@
use warnings;
use base 'Template::Plugin';
-our $VERSION = '3.003';
+our $VERSION = '3.004';
sub new {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/Plugin/HTML.pm
new/Template-Toolkit-3.004/lib/Template/Plugin/HTML.pm
--- old/Template-Toolkit-3.003/lib/Template/Plugin/HTML.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Plugin/HTML.pm 2020-01-13
19:13:07.000000000 +0100
@@ -23,7 +23,7 @@
use warnings;
use base 'Template::Plugin';
-our $VERSION = '3.003';
+our $VERSION = '3.004';
sub new {
my ($class, $context, @args) = @_;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/Plugin/Image.pm
new/Template-Toolkit-3.004/lib/Template/Plugin/Image.pm
--- old/Template-Toolkit-3.003/lib/Template/Plugin/Image.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Plugin/Image.pm 2020-01-13
19:13:07.000000000 +0100
@@ -22,7 +22,7 @@
use Template::Exception;
use File::Spec;
-our $VERSION = '3.003';
+our $VERSION = '3.004';
our $AUTOLOAD;
BEGIN {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Template-Toolkit-3.003/lib/Template/Plugin/Iterator.pm
new/Template-Toolkit-3.004/lib/Template/Plugin/Iterator.pm
--- old/Template-Toolkit-3.003/lib/Template/Plugin/Iterator.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Plugin/Iterator.pm 2020-01-13
19:13:07.000000000 +0100
@@ -25,7 +25,7 @@
use base 'Template::Plugin';
use Template::Iterator;
-our $VERSION = '3.003';
+our $VERSION = '3.004';
#------------------------------------------------------------------------
# new($context, \@data, \%args)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/Plugin/Math.pm
new/Template-Toolkit-3.004/lib/Template/Plugin/Math.pm
--- old/Template-Toolkit-3.003/lib/Template/Plugin/Math.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Plugin/Math.pm 2020-01-13
19:13:07.000000000 +0100
@@ -22,7 +22,7 @@
use warnings;
use base 'Template::Plugin';
-our $VERSION = '3.003';
+our $VERSION = '3.004';
our $AUTOLOAD;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/Plugin/Pod.pm
new/Template-Toolkit-3.004/lib/Template/Plugin/Pod.pm
--- old/Template-Toolkit-3.003/lib/Template/Plugin/Pod.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Plugin/Pod.pm 2020-01-13
19:13:07.000000000 +0100
@@ -24,7 +24,7 @@
use Pod::POM;
-our $VERSION = '3.003';
+our $VERSION = '3.004';
#------------------------------------------------------------------------
# new($context, \%config)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Template-Toolkit-3.003/lib/Template/Plugin/Procedural.pm
new/Template-Toolkit-3.004/lib/Template/Plugin/Procedural.pm
--- old/Template-Toolkit-3.003/lib/Template/Plugin/Procedural.pm
2019-12-27 18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Plugin/Procedural.pm
2020-01-13 19:13:07.000000000 +0100
@@ -22,7 +22,7 @@
use warnings;
use base 'Template::Plugin';
-our $VERSION = '3.003';
+our $VERSION = '3.004';
our $DEBUG = 0 unless defined $DEBUG;
our $AUTOLOAD;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/Plugin/Scalar.pm
new/Template-Toolkit-3.004/lib/Template/Plugin/Scalar.pm
--- old/Template-Toolkit-3.003/lib/Template/Plugin/Scalar.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Plugin/Scalar.pm 2020-01-13
19:13:07.000000000 +0100
@@ -24,7 +24,7 @@
use Template::Exception;
use Scalar::Util qw();
-our $VERSION = '3.003';
+our $VERSION = '3.004';
our $MONAD = 'Template::Monad::Scalar';
our $EXCEPTION = 'Template::Exception';
our $AUTOLOAD;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/Plugin/String.pm
new/Template-Toolkit-3.004/lib/Template/Plugin/String.pm
--- old/Template-Toolkit-3.003/lib/Template/Plugin/String.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Plugin/String.pm 2020-01-13
19:13:07.000000000 +0100
@@ -26,7 +26,7 @@
use overload q|""| => "text",
fallback => 1;
-our $VERSION = '3.003';
+our $VERSION = '3.004';
our $ERROR = '';
*centre = \*center;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/Plugin/Table.pm
new/Template-Toolkit-3.004/lib/Template/Plugin/Table.pm
--- old/Template-Toolkit-3.003/lib/Template/Plugin/Table.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Plugin/Table.pm 2020-01-13
19:13:07.000000000 +0100
@@ -24,7 +24,7 @@
use base 'Template::Plugin';
use Scalar::Util 'blessed';
-our $VERSION = '3.003';
+our $VERSION = '3.004';
our $AUTOLOAD;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/Plugin/URL.pm
new/Template-Toolkit-3.004/lib/Template/Plugin/URL.pm
--- old/Template-Toolkit-3.003/lib/Template/Plugin/URL.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Plugin/URL.pm 2020-01-13
19:13:07.000000000 +0100
@@ -23,7 +23,7 @@
use warnings;
use base 'Template::Plugin';
-our $VERSION = '3.003';
+our $VERSION = '3.004';
our $JOINT = '&';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/Plugin/View.pm
new/Template-Toolkit-3.004/lib/Template/Plugin/View.pm
--- old/Template-Toolkit-3.003/lib/Template/Plugin/View.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Plugin/View.pm 2020-01-13
19:13:07.000000000 +0100
@@ -23,7 +23,7 @@
use warnings;
use base 'Template::Plugin';
-our $VERSION = '3.003';
+our $VERSION = '3.004';
use Template::View;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/Plugin/Wrap.pm
new/Template-Toolkit-3.004/lib/Template/Plugin/Wrap.pm
--- old/Template-Toolkit-3.003/lib/Template/Plugin/Wrap.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Plugin/Wrap.pm 2020-01-13
19:13:07.000000000 +0100
@@ -23,7 +23,7 @@
use base 'Template::Plugin';
use Text::Wrap;
-our $VERSION = '3.003';
+our $VERSION = '3.004';
sub new {
my ($class, $context, $format) = @_;;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/Plugin.pm
new/Template-Toolkit-3.004/lib/Template/Plugin.pm
--- old/Template-Toolkit-3.003/lib/Template/Plugin.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Plugin.pm 2020-01-13
19:13:07.000000000 +0100
@@ -24,7 +24,7 @@
use warnings;
use base 'Template::Base';
-our $VERSION = '3.003';
+our $VERSION = '3.004';
our $DEBUG = 0 unless defined $DEBUG;
our $ERROR = '';
our $AUTOLOAD;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/Plugins.pm
new/Template-Toolkit-3.004/lib/Template/Plugins.pm
--- old/Template-Toolkit-3.003/lib/Template/Plugins.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Plugins.pm 2020-01-13
19:13:07.000000000 +0100
@@ -28,7 +28,7 @@
use base 'Template::Base';
use Template::Constants;
-our $VERSION = '3.003';
+our $VERSION = '3.004';
our $DEBUG = 0 unless defined $DEBUG;
our $PLUGIN_BASE = 'Template::Plugin';
our $STD_PLUGINS = {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/Provider.pm
new/Template-Toolkit-3.004/lib/Template/Provider.pm
--- old/Template-Toolkit-3.003/lib/Template/Provider.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Provider.pm 2020-01-13
19:13:07.000000000 +0100
@@ -55,7 +55,7 @@
use constant STAT => 5; # Time last stat()ed
use constant MSWin32 => $^O eq 'MSWin32';
-our $VERSION = '3.003';
+our $VERSION = '3.004';
our $DEBUG = 0 unless defined $DEBUG;
our $ERROR = '';
@@ -986,7 +986,7 @@
if(-d $path) {
$error = "$path: not a file";
}
- elsif (open(FH, "< $path")) {
+ elsif (open(FH, "<", $path)) {
local $/;
binmode(FH);
$data = <FH>;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/Service.pm
new/Template-Toolkit-3.004/lib/Template/Service.pm
--- old/Template-Toolkit-3.003/lib/Template/Service.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Service.pm 2020-01-13
19:13:07.000000000 +0100
@@ -30,7 +30,7 @@
use constant EXCEPTION => 'Template::Exception';
-our $VERSION = '3.003';
+our $VERSION = '3.004';
our $DEBUG = 0 unless defined $DEBUG;
our $ERROR = '';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/Stash/Context.pm
new/Template-Toolkit-3.004/lib/Template/Stash/Context.pm
--- old/Template-Toolkit-3.003/lib/Template/Stash/Context.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Stash/Context.pm 2020-01-13
19:13:07.000000000 +0100
@@ -71,7 +71,7 @@
use warnings;
use base 'Template::Stash';
-our $VERSION = '3.003';
+our $VERSION = '3.004';
our $DEBUG = 0 unless defined $DEBUG;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/Stash.pm
new/Template-Toolkit-3.004/lib/Template/Stash.pm
--- old/Template-Toolkit-3.003/lib/Template/Stash.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Stash.pm 2020-01-13
19:13:07.000000000 +0100
@@ -25,7 +25,7 @@
use Template::Exception;
use Scalar::Util qw( blessed reftype );
-our $VERSION = '3.003';
+our $VERSION = '3.004';
our $DEBUG = 0 unless defined $DEBUG;
our $PRIVATE = qr/^[_.]/;
our $UNDEF_TYPE = 'var.undef';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/Test.pm
new/Template-Toolkit-3.004/lib/Template/Test.pm
--- old/Template-Toolkit-3.003/lib/Template/Test.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/Test.pm 2020-01-13
19:13:07.000000000 +0100
@@ -28,7 +28,7 @@
use constant MSWin32 => $^O eq 'MSWin32';
-our $VERSION = '3.003';
+our $VERSION = '3.004';
our $DEBUG = 0;
our @ISA = qw( Exporter );
our @EXPORT = qw( ntests ok is match flush skip_all test_expect callsign
banner );
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/VMethods.pm
new/Template-Toolkit-3.004/lib/Template/VMethods.pm
--- old/Template-Toolkit-3.003/lib/Template/VMethods.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/VMethods.pm 2020-01-13
19:13:07.000000000 +0100
@@ -27,7 +27,7 @@
use Template::Filters;
require Template::Stash;
-our $VERSION = '3.003';
+our $VERSION = '3.004';
our $DEBUG = 0 unless defined $DEBUG;
our $PRIVATE = $Template::Stash::PRIVATE;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template/View.pm
new/Template-Toolkit-3.004/lib/Template/View.pm
--- old/Template-Toolkit-3.003/lib/Template/View.pm 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/lib/Template/View.pm 2020-01-13
19:13:07.000000000 +0100
@@ -29,7 +29,7 @@
use warnings;
use base 'Template::Base';
-our $VERSION = '3.003';
+our $VERSION = '3.004';
our $DEBUG = 0 unless defined $DEBUG;
our @BASEARGS = qw( context );
our $AUTOLOAD;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/lib/Template.pm
new/Template-Toolkit-3.004/lib/Template.pm
--- old/Template-Toolkit-3.003/lib/Template.pm 2019-12-27 18:07:47.000000000
+0100
+++ new/Template-Toolkit-3.004/lib/Template.pm 2020-01-13 19:13:07.000000000
+0100
@@ -32,7 +32,7 @@
use File::Path;
use Scalar::Util qw(blessed);
-our $VERSION = '3.003';
+our $VERSION = '3.004';
our $ERROR = '';
our $DEBUG = 0;
our $BINMODE = 0 unless defined $BINMODE;
@@ -189,7 +189,7 @@
# strip file name and line number from error raised by die()
($error = $@) =~ s/ at \S+ line \d+\n?$//;
}
- elsif (open(FP, ">$where")) {
+ elsif (open(FP, '>', $where)) {
# binmode option can be 1 or a specific layer, e.g. :utf8
my $bm = $options->{ binmode };
if ($bm && $bm eq 1) {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/parser/Grammar.pm.skel
new/Template-Toolkit-3.004/parser/Grammar.pm.skel
--- old/Template-Toolkit-3.003/parser/Grammar.pm.skel 2019-12-27
18:07:47.000000000 +0100
+++ new/Template-Toolkit-3.004/parser/Grammar.pm.skel 2020-01-13
19:13:07.000000000 +0100
@@ -30,7 +30,7 @@
use strict;
use warnings;
-our $VERSION = '3.003';
+our $VERSION = '3.004';
my (@RESERVED, %CMPOP, $LEXTABLE, $RULES, $STATES);
my ($factory, $rawstart);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/t/compile2.t
new/Template-Toolkit-3.004/t/compile2.t
--- old/Template-Toolkit-3.003/t/compile2.t 2018-10-05 23:06:30.000000000
+0200
+++ new/Template-Toolkit-3.004/t/compile2.t 2020-01-13 19:12:53.000000000
+0100
@@ -55,13 +55,13 @@
my @current_times = (stat $compiled)[8,9];
-open(FOO, $compiled) || die "$compiled: $!\n";
+open(FOO, '<', $compiled) || die "$compiled: $!\n";
local $/ = undef;
my $foo = <FOO>;
close(FOO);
$foo =~ s/the foo file/the hacked foo file/;
-open(FOO, "> $compiled") || die "$compiled: $!\n";
+open(FOO, ">", $compiled) || die "$compiled: $!\n";
print FOO $foo;
close(FOO);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/t/compile3.t
new/Template-Toolkit-3.004/t/compile3.t
--- old/Template-Toolkit-3.003/t/compile3.t 2018-10-05 23:06:30.000000000
+0200
+++ new/Template-Toolkit-3.004/t/compile3.t 2020-01-13 19:12:53.000000000
+0100
@@ -106,7 +106,7 @@
sub append_file {
local *FP;
sleep(2); # ensure file time stamps are different
- open(FP, ">>$file") || die "$file: $!\n";
+ open(FP, ">>", $file) || die "$file: $!\n";
print FP @_;
close(FP);
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/t/compile5.t
new/Template-Toolkit-3.004/t/compile5.t
--- old/Template-Toolkit-3.003/t/compile5.t 2018-10-05 23:06:30.000000000
+0200
+++ new/Template-Toolkit-3.004/t/compile5.t 2020-01-13 19:12:53.000000000
+0100
@@ -66,13 +66,13 @@
my @foo_times = (stat $foo)[8,9];
-open(FOO, $foo) || die "$foo: $!\n";
+open(FOO, '<', $foo) || die "$foo: $!\n";
local $/ = undef;
my $content = <FOO>;
close(FOO);
$content =~ s/the foo file/the newly hacked foo file/;
-open(FOO, "> $foo") || die "$foo: $!\n";
+open(FOO, ">", $foo) || die "$foo: $!\n";
print FOO $content;
close(FOO);
@@ -84,12 +84,12 @@
my @blam_times = (stat $blam)[8,9];
-open(BLAM, $blam) || die "$blam: $!\n";
+open(BLAM, '<', $blam) || die "$blam: $!\n";
local $/ = undef;
$content = <BLAM>;
close(BLAM);
$content =~ s/blam/wam-bam/g;
-open(BLAM, "> $blam") || die "$blam: $!\n";
+open(BLAM, ">", $blam) || die "$blam: $!\n";
print BLAM $content;
close(BLAM);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/t/output.t
new/Template-Toolkit-3.004/t/output.t
--- old/Template-Toolkit-3.003/t/output.t 2019-12-27 18:05:59.000000000
+0100
+++ new/Template-Toolkit-3.004/t/output.t 2020-01-13 19:12:53.000000000
+0100
@@ -40,7 +40,7 @@
ok( $tt->process('foo', &callsign, $f1) );
ok( -f $file1 );
-open(FP, $file1) || die "$file1: $!\n";
+open(FP, '<', $file1) || die "$file1: $!\n";
local $/ = undef;
my $out = <FP>;
close(FP);
@@ -64,7 +64,7 @@
ok( $tt->process('foo', &callsign) );
ok( -f $file2 );
-open(FP, $file2) || die "$file2: $!\n";
+open(FP, '<', $file2) || die "$file2: $!\n";
local $/ = undef;
$out = <FP>;
close(FP);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/t/provider.t
new/Template-Toolkit-3.004/t/provider.t
--- old/Template-Toolkit-3.003/t/provider.t 2018-10-09 20:57:09.000000000
+0200
+++ new/Template-Toolkit-3.004/t/provider.t 2020-01-13 19:12:53.000000000
+0100
@@ -63,7 +63,7 @@
sub update_file {
local *FP;
sleep(2); # ensure file time stamps are different
- open(FP, ">$newfile") || die "$newfile: $!\n";
+ open(FP, ">", $newfile) || die "$newfile: $!\n";
print(FP @_) || die "failed to write $newfile: $!\n";
close(FP);
}
@@ -156,7 +156,7 @@
# Make sure we have a multi-line template file so $/ is tested.
my $glob_file = abs_path($dir) . '/baz';
-open GLOBFILE, $glob_file or die "Failed to open '$absfile': $!";
+open GLOBFILE, '<', $glob_file or die "Failed to open '$absfile': $!";
my $outstr = '';
$ttglob->process( \*GLOBFILE, { a => 'globtest' }, \$outstr ) || die
$ttglob->error;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Template-Toolkit-3.003/xs/ppport.h
new/Template-Toolkit-3.004/xs/ppport.h
--- old/Template-Toolkit-3.003/xs/ppport.h 2019-12-23 23:25:14.000000000
+0100
+++ new/Template-Toolkit-3.004/xs/ppport.h 2020-01-13 19:12:53.000000000
+0100
@@ -2786,7 +2786,7 @@
my $patch_opened = 0;
for $filename (@files) {
- unless (open IN, "<$filename") {
+ unless (open IN, "<", $filename) {
warn "Unable to read from $filename: $!\n";
next;
}
@@ -3041,7 +3041,7 @@
}
else {
local *F;
- if (open F, ">$newfile") {
+ if (open F, ">", $newfile) {
info("Writing copy of '$filename' with changes to '$newfile'");
print F $c;
close F;
@@ -3134,7 +3134,7 @@
while (-e "$tmp.$suf") { $suf++ }
$tmp = "$tmp.$suf";
- if (open F, ">$tmp") {
+ if (open F, ">", $tmp) {
print F $str;
close F;
@@ -3322,7 +3322,7 @@
$c =~ s!^\s*#\s*!#!mg;
$c =~ s!^\s+!!mg;
- open OUT, ">$0" or die "cannot strip $0: $!\n";
+ open OUT, ">", $0 or die "cannot strip $0: $!\n";
print OUT "$pl$c\n";
exit 0;
