Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-PPIx-QuoteLike for
openSUSE:Factory checked in at 2021-11-20 02:38:42
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-PPIx-QuoteLike (Old)
and /work/SRC/openSUSE:Factory/.perl-PPIx-QuoteLike.new.1895 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-PPIx-QuoteLike"
Sat Nov 20 02:38:42 2021 rev:14 rq:931790 version:0.019
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-PPIx-QuoteLike/perl-PPIx-QuoteLike.changes
2021-10-26 20:14:53.590047822 +0200
+++
/work/SRC/openSUSE:Factory/.perl-PPIx-QuoteLike.new.1895/perl-PPIx-QuoteLike.changes
2021-11-20 02:39:42.804666665 +0100
@@ -1,0 +2,15 @@
+Tue Nov 16 03:07:03 UTC 2021 - Tina M??ller <timueller+p...@suse.de>
+
+- updated to 0.019
+ see /usr/share/doc/packages/perl-PPIx-QuoteLike/Changes
+
+ 0.019 2021-11-15 T. R. Wyant
+ Add CONTRIBUTING file.
+
+ Try to quell weird Win32 test failures which seem to occur only in
+ tests where I am using 'use open' to put the standard handles into
+ UTF-8 mode. The fix (I hope) is to do this to the Test::Harness
+ handles at run time instead of to the standard handles at compile
+ time.
+
+-------------------------------------------------------------------
Old:
----
PPIx-QuoteLike-0.018.tar.gz
New:
----
PPIx-QuoteLike-0.019.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-PPIx-QuoteLike.spec ++++++
--- /var/tmp/diff_new_pack.zh90pM/_old 2021-11-20 02:39:43.208665332 +0100
+++ /var/tmp/diff_new_pack.zh90pM/_new 2021-11-20 02:39:43.212665319 +0100
@@ -18,7 +18,7 @@
%define cpan_name PPIx-QuoteLike
Name: perl-PPIx-QuoteLike
-Version: 0.018
+Version: 0.019
Release: 0
Summary: Parse Perl string literals and string-literal-like things
License: Artistic-1.0 OR GPL-1.0-or-later
@@ -65,6 +65,6 @@
%perl_gen_filelist
%files -f %{name}.files
-%doc Changes README
+%doc Changes CONTRIBUTING README
%changelog
++++++ PPIx-QuoteLike-0.018.tar.gz -> PPIx-QuoteLike-0.019.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.018/CONTRIBUTING
new/PPIx-QuoteLike-0.019/CONTRIBUTING
--- old/PPIx-QuoteLike-0.018/CONTRIBUTING 1970-01-01 01:00:00.000000000
+0100
+++ new/PPIx-QuoteLike-0.019/CONTRIBUTING 2021-11-15 17:22:55.000000000
+0100
@@ -0,0 +1,27 @@
+I welcome bug reports, patches, and suggestions. My preferred way to
+recieve these is via the RT system at
+https://rt.cpan.org/Public/Dist/Display.html?Name=PPIx-QuoteLike,
+but I happily accept them either through GitHub at
+https://github.com/trwyant/perl-PPIx-QuoteLike,
+by electronic mail to WYANT AT cpan DOT org, or any other way that works
+for you, though I can not accept owls because I have no facilities to
+house them. Non-RT requests may be turned into RT tickets by me unless
+you specifically request otherwise. The bug report, patch, or suggestion
+(if acted on) will also be acknowledged in the Changes file unless you
+specifically request othewise.
+
+Requests for information probably do not need to be tickets in RT or
+GitHub, and my preferred route for these is by electronic mail, but
+again anything that works for you is probably fine with me.
+
+I try hard never to reject a bug report outright, though I may edit
+patches, believe that a different fix is more in line with my vision for
+the code, or even that the report is due to a misunderstanding and
+address it with a documentation change. Whatever I decide I will give
+you time to respond (typically a week or so), and whatever I actually do
+I will give you time to see if it meets your needs before I do a
+production release.
+
+GitHub pull requests should be made on a topic branch rather than the
+master branch. If you have something big in mind I would appreciate a
+heads-up in some form prior to the pull request.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.018/Changes
new/PPIx-QuoteLike-0.019/Changes
--- old/PPIx-QuoteLike-0.018/Changes 2021-10-22 14:59:26.000000000 +0200
+++ new/PPIx-QuoteLike-0.019/Changes 2021-11-15 17:22:55.000000000 +0100
@@ -1,3 +1,12 @@
+0.019 2021-11-15 T. R. Wyant
+ Add CONTRIBUTING file.
+
+ Try to quell weird Win32 test failures which seem to occur only in
+ tests where I am using 'use open' to put the standard handles into
+ UTF-8 mode. The fix (I hope) is to do this to the Test::Harness
+ handles at run time instead of to the standard handles at compile
+ time.
+
0.018 2021-10-22 T. R. Wyant
Argument postderef is now fatal.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.018/MANIFEST
new/PPIx-QuoteLike-0.019/MANIFEST
--- old/PPIx-QuoteLike-0.018/MANIFEST 2021-10-22 14:59:26.000000000 +0200
+++ new/PPIx-QuoteLike-0.019/MANIFEST 2021-11-15 17:22:55.000000000 +0100
@@ -1,5 +1,6 @@
Build.PL
Changes
+CONTRIBUTING
eg/pqldump
eg/README
eg/variables
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.018/META.json
new/PPIx-QuoteLike-0.019/META.json
--- old/PPIx-QuoteLike-0.018/META.json 2021-10-22 14:59:26.000000000 +0200
+++ new/PPIx-QuoteLike-0.019/META.json 2021-11-15 17:22:55.000000000 +0100
@@ -58,51 +58,51 @@
"provides" : {
"PPIx::QuoteLike" : {
"file" : "lib/PPIx/QuoteLike.pm",
- "version" : "0.018"
+ "version" : "0.019"
},
"PPIx::QuoteLike::Constant" : {
"file" : "lib/PPIx/QuoteLike/Constant.pm",
- "version" : "0.018"
+ "version" : "0.019"
},
"PPIx::QuoteLike::Dumper" : {
"file" : "lib/PPIx/QuoteLike/Dumper.pm",
- "version" : "0.018"
+ "version" : "0.019"
},
"PPIx::QuoteLike::Token" : {
"file" : "lib/PPIx/QuoteLike/Token.pm",
- "version" : "0.018"
+ "version" : "0.019"
},
"PPIx::QuoteLike::Token::Control" : {
"file" : "lib/PPIx/QuoteLike/Token/Control.pm",
- "version" : "0.018"
+ "version" : "0.019"
},
"PPIx::QuoteLike::Token::Delimiter" : {
"file" : "lib/PPIx/QuoteLike/Token/Delimiter.pm",
- "version" : "0.018"
+ "version" : "0.019"
},
"PPIx::QuoteLike::Token::Interpolation" : {
"file" : "lib/PPIx/QuoteLike/Token/Interpolation.pm",
- "version" : "0.018"
+ "version" : "0.019"
},
"PPIx::QuoteLike::Token::String" : {
"file" : "lib/PPIx/QuoteLike/Token/String.pm",
- "version" : "0.018"
+ "version" : "0.019"
},
"PPIx::QuoteLike::Token::Structure" : {
"file" : "lib/PPIx/QuoteLike/Token/Structure.pm",
- "version" : "0.018"
+ "version" : "0.019"
},
"PPIx::QuoteLike::Token::Unknown" : {
"file" : "lib/PPIx/QuoteLike/Token/Unknown.pm",
- "version" : "0.018"
+ "version" : "0.019"
},
"PPIx::QuoteLike::Token::Whitespace" : {
"file" : "lib/PPIx/QuoteLike/Token/Whitespace.pm",
- "version" : "0.018"
+ "version" : "0.019"
},
"PPIx::QuoteLike::Utils" : {
"file" : "lib/PPIx/QuoteLike/Utils.pm",
- "version" : "0.018"
+ "version" : "0.019"
}
},
"release_status" : "stable",
@@ -120,6 +120,6 @@
"web" : "https://github.com/trwyant/perl-PPIx-QuoteLike";
}
},
- "version" : "0.018",
+ "version" : "0.019",
"x_serialization_backend" : "JSON::PP version 4.06"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.018/META.yml
new/PPIx-QuoteLike-0.019/META.yml
--- old/PPIx-QuoteLike-0.018/META.yml 2021-10-22 14:59:26.000000000 +0200
+++ new/PPIx-QuoteLike-0.019/META.yml 2021-11-15 17:22:55.000000000 +0100
@@ -25,40 +25,40 @@
provides:
PPIx::QuoteLike:
file: lib/PPIx/QuoteLike.pm
- version: '0.018'
+ version: '0.019'
PPIx::QuoteLike::Constant:
file: lib/PPIx/QuoteLike/Constant.pm
- version: '0.018'
+ version: '0.019'
PPIx::QuoteLike::Dumper:
file: lib/PPIx/QuoteLike/Dumper.pm
- version: '0.018'
+ version: '0.019'
PPIx::QuoteLike::Token:
file: lib/PPIx/QuoteLike/Token.pm
- version: '0.018'
+ version: '0.019'
PPIx::QuoteLike::Token::Control:
file: lib/PPIx/QuoteLike/Token/Control.pm
- version: '0.018'
+ version: '0.019'
PPIx::QuoteLike::Token::Delimiter:
file: lib/PPIx/QuoteLike/Token/Delimiter.pm
- version: '0.018'
+ version: '0.019'
PPIx::QuoteLike::Token::Interpolation:
file: lib/PPIx/QuoteLike/Token/Interpolation.pm
- version: '0.018'
+ version: '0.019'
PPIx::QuoteLike::Token::String:
file: lib/PPIx/QuoteLike/Token/String.pm
- version: '0.018'
+ version: '0.019'
PPIx::QuoteLike::Token::Structure:
file: lib/PPIx/QuoteLike/Token/Structure.pm
- version: '0.018'
+ version: '0.019'
PPIx::QuoteLike::Token::Unknown:
file: lib/PPIx/QuoteLike/Token/Unknown.pm
- version: '0.018'
+ version: '0.019'
PPIx::QuoteLike::Token::Whitespace:
file: lib/PPIx/QuoteLike/Token/Whitespace.pm
- version: '0.018'
+ version: '0.019'
PPIx::QuoteLike::Utils:
file: lib/PPIx/QuoteLike/Utils.pm
- version: '0.018'
+ version: '0.019'
requires:
Carp: '0'
Encode: '0'
@@ -79,5 +79,5 @@
bugtracker: https://rt.cpan.org/Public/Dist/Display.html?Name=PPIx-QuoteLike
license: http://dev.perl.org/licenses/
repository: git://github.com/trwyant/perl-PPIx-QuoteLike.git
-version: '0.018'
+version: '0.019'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.018/eg/pqldump
new/PPIx-QuoteLike-0.019/eg/pqldump
--- old/PPIx-QuoteLike-0.018/eg/pqldump 2021-10-22 14:59:26.000000000 +0200
+++ new/PPIx-QuoteLike-0.019/eg/pqldump 2021-11-15 17:22:55.000000000 +0100
@@ -9,7 +9,7 @@
use Pod::Usage;
use PPIx::QuoteLike::Dumper;
-our $VERSION = '0.018';
+our $VERSION = '0.019';
my %opt;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.018/eg/variables
new/PPIx-QuoteLike-0.019/eg/variables
--- old/PPIx-QuoteLike-0.018/eg/variables 2021-10-22 14:59:26.000000000
+0200
+++ new/PPIx-QuoteLike-0.019/eg/variables 2021-11-15 17:22:55.000000000
+0100
@@ -10,7 +10,7 @@
use PPI::Document;
use PPIx::QuoteLike::Utils qw{ __variables };
-our $VERSION = '0.018';
+our $VERSION = '0.019';
my %opt;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.018/inc/My/Module/Recommend/Any.pm
new/PPIx-QuoteLike-0.019/inc/My/Module/Recommend/Any.pm
--- old/PPIx-QuoteLike-0.018/inc/My/Module/Recommend/Any.pm 2021-10-22
14:59:26.000000000 +0200
+++ new/PPIx-QuoteLike-0.019/inc/My/Module/Recommend/Any.pm 2021-11-15
17:22:55.000000000 +0100
@@ -12,7 +12,7 @@
BEGIN {
*import = \&Exporter::import;
}
-our $VERSION = '0.018';
+our $VERSION = '0.019';
our @EXPORT_OK = qw{ __any };
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.018/lib/PPIx/QuoteLike/Constant.pm
new/PPIx-QuoteLike-0.019/lib/PPIx/QuoteLike/Constant.pm
--- old/PPIx-QuoteLike-0.018/lib/PPIx/QuoteLike/Constant.pm 2021-10-22
14:59:26.000000000 +0200
+++ new/PPIx-QuoteLike-0.019/lib/PPIx/QuoteLike/Constant.pm 2021-11-15
17:22:55.000000000 +0100
@@ -8,7 +8,9 @@
use Carp;
use base qw{ Exporter };
-our $VERSION = '0.018';
+our $VERSION = '0.019';
+
+no warnings qw{ once }; # For older Perls.
our @CARP_NOT = qw{
PPIx::QuoteLike
@@ -25,6 +27,8 @@
PPIx::QuoteLike::Utils
};
+use warnings qw{ once };
+
our @EXPORT_OK = qw{
ARRAY_REF
MINIMUM_PERL
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.018/lib/PPIx/QuoteLike/Dumper.pm
new/PPIx-QuoteLike-0.019/lib/PPIx/QuoteLike/Dumper.pm
--- old/PPIx-QuoteLike-0.018/lib/PPIx/QuoteLike/Dumper.pm 2021-10-22
14:59:26.000000000 +0200
+++ new/PPIx-QuoteLike-0.019/lib/PPIx/QuoteLike/Dumper.pm 2021-11-15
17:22:55.000000000 +0100
@@ -12,7 +12,7 @@
use PPIx::QuoteLike::Utils qw{ __instance };
use Scalar::Util ();
-our $VERSION = '0.018';
+our $VERSION = '0.019';
use constant SCALAR_REF => ref \0;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/PPIx-QuoteLike-0.018/lib/PPIx/QuoteLike/Token/Control.pm
new/PPIx-QuoteLike-0.019/lib/PPIx/QuoteLike/Token/Control.pm
--- old/PPIx-QuoteLike-0.018/lib/PPIx/QuoteLike/Token/Control.pm
2021-10-22 14:59:26.000000000 +0200
+++ new/PPIx-QuoteLike-0.019/lib/PPIx/QuoteLike/Token/Control.pm
2021-11-15 17:22:55.000000000 +0100
@@ -9,7 +9,7 @@
use PPIx::QuoteLike::Constant qw{ @CARP_NOT };
-our $VERSION = '0.018';
+our $VERSION = '0.019';
{
# TODO make this a state variable when we can require Perl 5.10.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/PPIx-QuoteLike-0.018/lib/PPIx/QuoteLike/Token/Delimiter.pm
new/PPIx-QuoteLike-0.019/lib/PPIx/QuoteLike/Token/Delimiter.pm
--- old/PPIx-QuoteLike-0.018/lib/PPIx/QuoteLike/Token/Delimiter.pm
2021-10-22 14:59:26.000000000 +0200
+++ new/PPIx-QuoteLike-0.019/lib/PPIx/QuoteLike/Token/Delimiter.pm
2021-11-15 17:22:55.000000000 +0100
@@ -9,7 +9,7 @@
use PPIx::QuoteLike::Constant qw{ MINIMUM_PERL @CARP_NOT };
-our $VERSION = '0.018';
+our $VERSION = '0.019';
# Perl 5.29.0 disallows unassigned code points and combining code points
# as delimiters. Unfortunately for me non-characters and illegal
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/PPIx-QuoteLike-0.018/lib/PPIx/QuoteLike/Token/Interpolation.pm
new/PPIx-QuoteLike-0.019/lib/PPIx/QuoteLike/Token/Interpolation.pm
--- old/PPIx-QuoteLike-0.018/lib/PPIx/QuoteLike/Token/Interpolation.pm
2021-10-22 14:59:26.000000000 +0200
+++ new/PPIx-QuoteLike-0.019/lib/PPIx/QuoteLike/Token/Interpolation.pm
2021-11-15 17:22:55.000000000 +0100
@@ -20,7 +20,7 @@
use base qw{ PPIx::QuoteLike::Token };
-our $VERSION = '0.018';
+our $VERSION = '0.019';
sub ppi {
my ( $self ) = @_;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/PPIx-QuoteLike-0.018/lib/PPIx/QuoteLike/Token/String.pm
new/PPIx-QuoteLike-0.019/lib/PPIx/QuoteLike/Token/String.pm
--- old/PPIx-QuoteLike-0.018/lib/PPIx/QuoteLike/Token/String.pm 2021-10-22
14:59:26.000000000 +0200
+++ new/PPIx-QuoteLike-0.019/lib/PPIx/QuoteLike/Token/String.pm 2021-11-15
17:22:55.000000000 +0100
@@ -9,7 +9,7 @@
use PPIx::QuoteLike::Constant qw{ @CARP_NOT };
-our $VERSION = '0.018';
+our $VERSION = '0.019';
1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/PPIx-QuoteLike-0.018/lib/PPIx/QuoteLike/Token/Structure.pm
new/PPIx-QuoteLike-0.019/lib/PPIx/QuoteLike/Token/Structure.pm
--- old/PPIx-QuoteLike-0.018/lib/PPIx/QuoteLike/Token/Structure.pm
2021-10-22 14:59:26.000000000 +0200
+++ new/PPIx-QuoteLike-0.019/lib/PPIx/QuoteLike/Token/Structure.pm
2021-11-15 17:22:55.000000000 +0100
@@ -9,7 +9,7 @@
use PPIx::QuoteLike::Constant qw{ @CARP_NOT };
-our $VERSION = '0.018';
+our $VERSION = '0.019';
1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/PPIx-QuoteLike-0.018/lib/PPIx/QuoteLike/Token/Unknown.pm
new/PPIx-QuoteLike-0.019/lib/PPIx/QuoteLike/Token/Unknown.pm
--- old/PPIx-QuoteLike-0.018/lib/PPIx/QuoteLike/Token/Unknown.pm
2021-10-22 14:59:26.000000000 +0200
+++ new/PPIx-QuoteLike-0.019/lib/PPIx/QuoteLike/Token/Unknown.pm
2021-11-15 17:22:55.000000000 +0100
@@ -9,7 +9,7 @@
use PPIx::QuoteLike::Constant qw{ @CARP_NOT };
-our $VERSION = '0.018';
+our $VERSION = '0.019';
1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/PPIx-QuoteLike-0.018/lib/PPIx/QuoteLike/Token/Whitespace.pm
new/PPIx-QuoteLike-0.019/lib/PPIx/QuoteLike/Token/Whitespace.pm
--- old/PPIx-QuoteLike-0.018/lib/PPIx/QuoteLike/Token/Whitespace.pm
2021-10-22 14:59:26.000000000 +0200
+++ new/PPIx-QuoteLike-0.019/lib/PPIx/QuoteLike/Token/Whitespace.pm
2021-11-15 17:22:55.000000000 +0100
@@ -9,7 +9,7 @@
use PPIx::QuoteLike::Constant qw{ @CARP_NOT };
-our $VERSION = '0.018';
+our $VERSION = '0.019';
sub significant {
return 0;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.018/lib/PPIx/QuoteLike/Token.pm
new/PPIx-QuoteLike-0.019/lib/PPIx/QuoteLike/Token.pm
--- old/PPIx-QuoteLike-0.018/lib/PPIx/QuoteLike/Token.pm 2021-10-22
14:59:26.000000000 +0200
+++ new/PPIx-QuoteLike-0.019/lib/PPIx/QuoteLike/Token.pm 2021-11-15
17:22:55.000000000 +0100
@@ -16,7 +16,7 @@
visual_column_number
};
-our $VERSION = '0.018';
+our $VERSION = '0.019';
# Private to this package.
sub __new {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.018/lib/PPIx/QuoteLike/Utils.pm
new/PPIx-QuoteLike-0.019/lib/PPIx/QuoteLike/Utils.pm
--- old/PPIx-QuoteLike-0.018/lib/PPIx/QuoteLike/Utils.pm 2021-10-22
14:59:26.000000000 +0200
+++ new/PPIx-QuoteLike-0.019/lib/PPIx/QuoteLike/Utils.pm 2021-11-15
17:22:55.000000000 +0100
@@ -39,7 +39,7 @@
__variables
};
-our $VERSION = '0.018';
+our $VERSION = '0.019';
# Readonly::Scalar my $BRACED_RE => __match_enclosed( LEFT_CURLY );
Readonly::Scalar my $BRACKETED_RE => __match_enclosed( '[' ); # ]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.018/lib/PPIx/QuoteLike.pm
new/PPIx-QuoteLike-0.019/lib/PPIx/QuoteLike.pm
--- old/PPIx-QuoteLike-0.018/lib/PPIx/QuoteLike.pm 2021-10-22
14:59:26.000000000 +0200
+++ new/PPIx-QuoteLike-0.019/lib/PPIx/QuoteLike.pm 2021-11-15
17:22:55.000000000 +0100
@@ -40,7 +40,7 @@
use Scalar::Util ();
use Text::Tabs ();
-our $VERSION = '0.018';
+our $VERSION = '0.019';
use constant CLASS_CONTROL => 'PPIx::QuoteLike::Token::Control';
use constant CLASS_DELIMITER => 'PPIx::QuoteLike::Token::Delimiter';
@@ -192,6 +192,7 @@
$self->{interpolates} = $self->{interpolates} ? 1 : 0;
+ defined or $_ = '' for $indented, $gap2;
$self->{type} = [
$self->_make_token( CLASS_STRUCTURE, $type ),
length $gap ?
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.018/t/parse.t
new/PPIx-QuoteLike-0.019/t/parse.t
--- old/PPIx-QuoteLike-0.018/t/parse.t 2021-10-22 14:59:26.000000000 +0200
+++ new/PPIx-QuoteLike-0.019/t/parse.t 2021-11-15 17:22:55.000000000 +0100
@@ -10,16 +10,23 @@
SUFFICIENT_UTF8_SUPPORT_FOR_WEIRD_DELIMITERS
};
-BEGIN {
- if ( SUFFICIENT_UTF8_SUPPORT_FOR_WEIRD_DELIMITERS ) {
- # Have to prevent Perl from parsing 'open' as 'CORE::open'.
- require 'open.pm';
- 'open'->import( qw{ :std :encoding(utf-8) } );
+use Test::More 0.88; # Because of done_testing();
+
+# NOTE we use this circumlocution to hide the :encoding() from
+# xt/author/minimum_perl.t and Perl::MinimumVersion. The two-argument
+# binmode itself is OK under Perl 5.6 but the :encoding() is not. But if
+# we're 5.6 then SUFFICIENT_UTF8_SUPPORT_FOR_WEIRD_DELIMITERS is false,
+# so the binmode() never gets executed.
+use constant OUTPUT_ENCODING => ':encoding(utf-8)';
+
+if ( SUFFICIENT_UTF8_SUPPORT_FOR_WEIRD_DELIMITERS ) {
+ my $builder = Test::More->builder();
+ foreach my $method ( qw{ output failure_output todo_output } ) {
+ my $handle = $builder->$method();
+ binmode $handle, OUTPUT_ENCODING;
}
}
-use Test::More 0.88; # Because of done_testing();
-
use charnames qw{ :full };
my $obj;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.018/t/version.t
new/PPIx-QuoteLike-0.019/t/version.t
--- old/PPIx-QuoteLike-0.018/t/version.t 2021-10-22 14:59:26.000000000
+0200
+++ new/PPIx-QuoteLike-0.019/t/version.t 2021-11-15 17:22:55.000000000
+0100
@@ -14,16 +14,23 @@
use PPIx::QuoteLike::Token::Interpolation;
use PPIx::QuoteLike::Token::String;
-BEGIN {
- if ( SUFFICIENT_UTF8_SUPPORT_FOR_WEIRD_DELIMITERS ) {
- # Have to prevent Perl from parsing 'open' as 'CORE::open'.
- require 'open.pm';
- 'open'->import( qw{ :std :encoding(utf-8) } );
+use Test::More 0.88; # Because of done_testing();
+
+# NOTE we use this circumlocution to hide the :encoding() from
+# xt/author/minimum_perl.t and Perl::MinimumVersion. The two-argument
+# binmode itself is OK under Perl 5.6 but the :encoding() is not. But if
+# we're 5.6 then SUFFICIENT_UTF8_SUPPORT_FOR_WEIRD_DELIMITERS is false,
+# so the binmode() never gets executed.
+use constant OUTPUT_ENCODING => ':encoding(utf-8)';
+
+if ( SUFFICIENT_UTF8_SUPPORT_FOR_WEIRD_DELIMITERS ) {
+ my $builder = Test::More->builder();
+ foreach my $method ( qw{ output failure_output todo_output } ) {
+ my $handle = $builder->$method();
+ binmode $handle, OUTPUT_ENCODING;
}
}
-use Test::More 0.88; # Because of done_testing();
-
use charnames qw{ :full };
my $tok;
