Hello community,
here is the log from the commit of package perl-Perl-Critic-Freenode for
openSUSE:Factory checked in at 2019-11-15 00:37:12
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Perl-Critic-Freenode (Old)
and /work/SRC/openSUSE:Factory/.perl-Perl-Critic-Freenode.new.26869 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Perl-Critic-Freenode"
Fri Nov 15 00:37:12 2019 rev:10 rq:748730 version:0.032
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Perl-Critic-Freenode/perl-Perl-Critic-Freenode.changes
2019-09-27 14:55:05.831727424 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Perl-Critic-Freenode.new.26869/perl-Perl-Critic-Freenode.changes
2019-11-15 00:37:13.447702761 +0100
@@ -1,0 +2,9 @@
+Thu Nov 14 09:38:11 UTC 2019 - <[email protected]>
+
+- updated to 0.032
+ see /usr/share/doc/packages/perl-Perl-Critic-Freenode/Changes
+
+ 0.032 2019-11-11 11:09:08 EST
+ - Add check for CORE::wantarray and CORE'wantarray to WantArray policy
(simcop2387 #37)
+
+-------------------------------------------------------------------
Old:
----
Perl-Critic-Freenode-0.031.tar.gz
New:
----
Perl-Critic-Freenode-0.032.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Perl-Critic-Freenode.spec ++++++
--- /var/tmp/diff_new_pack.vmi59P/_old 2019-11-15 00:37:13.979702721 +0100
+++ /var/tmp/diff_new_pack.vmi59P/_new 2019-11-15 00:37:13.979702721 +0100
@@ -17,7 +17,7 @@
Name: perl-Perl-Critic-Freenode
-Version: 0.031
+Version: 0.032
Release: 0
%define cpan_name Perl-Critic-Freenode
Summary: Perl::Critic policies inspired by #perl on
++++++ Perl-Critic-Freenode-0.031.tar.gz -> Perl-Critic-Freenode-0.032.tar.gz
++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Perl-Critic-Freenode-0.031/Build.PL
new/Perl-Critic-Freenode-0.032/Build.PL
--- old/Perl-Critic-Freenode-0.031/Build.PL 2019-09-26 01:00:42.000000000
+0200
+++ new/Perl-Critic-Freenode-0.032/Build.PL 2019-11-11 17:09:10.000000000
+0100
@@ -84,7 +84,7 @@
"Dan Book <dbook\@cpan.org>"
],
"dist_name" => "Perl-Critic-Freenode",
- "dist_version" => "0.031",
+ "dist_version" => "0.032",
"license" => "artistic_2",
"module_name" => "Perl::Critic::Freenode",
"recursive_test_files" => 1,
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Perl-Critic-Freenode-0.031/Changes
new/Perl-Critic-Freenode-0.032/Changes
--- old/Perl-Critic-Freenode-0.031/Changes 2019-09-26 01:00:42.000000000
+0200
+++ new/Perl-Critic-Freenode-0.032/Changes 2019-11-11 17:09:10.000000000
+0100
@@ -1,3 +1,6 @@
+0.032 2019-11-11 11:09:08 EST
+ - Add check for CORE::wantarray and CORE'wantarray to WantArray policy
(simcop2387 #37)
+
0.031 2019-09-25 19:00:39 EDT
- Add FindBin to DiscouragedModules policy (#31)
- Add MultidimensionalArrayEmulation policy (#35)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Perl-Critic-Freenode-0.031/META.json
new/Perl-Critic-Freenode-0.032/META.json
--- old/Perl-Critic-Freenode-0.031/META.json 2019-09-26 01:00:42.000000000
+0200
+++ new/Perl-Critic-Freenode-0.032/META.json 2019-11-11 17:09:10.000000000
+0100
@@ -71,115 +71,115 @@
"provides" : {
"Perl::Critic::Freenode" : {
"file" : "lib/Perl/Critic/Freenode.pm",
- "version" : "0.031"
+ "version" : "0.032"
},
"Perl::Critic::Freenode::Utils" : {
"file" : "lib/Perl/Critic/Freenode/Utils.pm",
- "version" : "0.031"
+ "version" : "0.032"
},
"Perl::Critic::Policy::Freenode::AmpersandSubCalls" : {
"file" : "lib/Perl/Critic/Policy/Freenode/AmpersandSubCalls.pm",
- "version" : "0.031"
+ "version" : "0.032"
},
"Perl::Critic::Policy::Freenode::ArrayAssignAref" : {
"file" : "lib/Perl/Critic/Policy/Freenode/ArrayAssignAref.pm",
- "version" : "0.031"
+ "version" : "0.032"
},
"Perl::Critic::Policy::Freenode::BarewordFilehandles" : {
"file" : "lib/Perl/Critic/Policy/Freenode/BarewordFilehandles.pm",
- "version" : "0.031"
+ "version" : "0.032"
},
"Perl::Critic::Policy::Freenode::ConditionalDeclarations" : {
"file" : "lib/Perl/Critic/Policy/Freenode/ConditionalDeclarations.pm",
- "version" : "0.031"
+ "version" : "0.032"
},
"Perl::Critic::Policy::Freenode::ConditionalImplicitReturn" : {
"file" :
"lib/Perl/Critic/Policy/Freenode/ConditionalImplicitReturn.pm",
- "version" : "0.031"
+ "version" : "0.032"
},
"Perl::Critic::Policy::Freenode::DeprecatedFeatures" : {
"file" : "lib/Perl/Critic/Policy/Freenode/DeprecatedFeatures.pm",
- "version" : "0.031"
+ "version" : "0.032"
},
"Perl::Critic::Policy::Freenode::DiscouragedModules" : {
"file" : "lib/Perl/Critic/Policy/Freenode/DiscouragedModules.pm",
- "version" : "0.031"
+ "version" : "0.032"
},
"Perl::Critic::Policy::Freenode::DollarAB" : {
"file" : "lib/Perl/Critic/Policy/Freenode/DollarAB.pm",
- "version" : "0.031"
+ "version" : "0.032"
},
"Perl::Critic::Policy::Freenode::Each" : {
"file" : "lib/Perl/Critic/Policy/Freenode/Each.pm",
- "version" : "0.031"
+ "version" : "0.032"
},
"Perl::Critic::Policy::Freenode::EmptyReturn" : {
"file" : "lib/Perl/Critic/Policy/Freenode/EmptyReturn.pm",
- "version" : "0.031"
+ "version" : "0.032"
},
"Perl::Critic::Policy::Freenode::IndirectObjectNotation" : {
"file" : "lib/Perl/Critic/Policy/Freenode/IndirectObjectNotation.pm",
- "version" : "0.031"
+ "version" : "0.032"
},
"Perl::Critic::Policy::Freenode::LexicalForeachIterator" : {
"file" : "lib/Perl/Critic/Policy/Freenode/LexicalForeachIterator.pm",
- "version" : "0.031"
+ "version" : "0.032"
},
"Perl::Critic::Policy::Freenode::LoopOnHash" : {
"file" : "lib/Perl/Critic/Policy/Freenode/LoopOnHash.pm",
- "version" : "0.031"
+ "version" : "0.032"
},
"Perl::Critic::Policy::Freenode::ModPerl" : {
"file" : "lib/Perl/Critic/Policy/Freenode/ModPerl.pm",
- "version" : "0.031"
+ "version" : "0.032"
},
"Perl::Critic::Policy::Freenode::MultidimensionalArrayEmulation" : {
"file" :
"lib/Perl/Critic/Policy/Freenode/MultidimensionalArrayEmulation.pm",
- "version" : "0.031"
+ "version" : "0.032"
},
"Perl::Critic::Policy::Freenode::OpenArgs" : {
"file" : "lib/Perl/Critic/Policy/Freenode/OpenArgs.pm",
- "version" : "0.031"
+ "version" : "0.032"
},
"Perl::Critic::Policy::Freenode::OverloadOptions" : {
"file" : "lib/Perl/Critic/Policy/Freenode/OverloadOptions.pm",
- "version" : "0.031"
+ "version" : "0.032"
},
"Perl::Critic::Policy::Freenode::POSIXImports" : {
"file" : "lib/Perl/Critic/Policy/Freenode/POSIXImports.pm",
- "version" : "0.031"
+ "version" : "0.032"
},
"Perl::Critic::Policy::Freenode::PackageMatchesFilename" : {
"file" : "lib/Perl/Critic/Policy/Freenode/PackageMatchesFilename.pm",
- "version" : "0.031"
+ "version" : "0.032"
},
"Perl::Critic::Policy::Freenode::PreferredAlternatives" : {
"file" : "lib/Perl/Critic/Policy/Freenode/PreferredAlternatives.pm",
- "version" : "0.031"
+ "version" : "0.032"
},
"Perl::Critic::Policy::Freenode::Prototypes" : {
"file" : "lib/Perl/Critic/Policy/Freenode/Prototypes.pm",
- "version" : "0.031"
+ "version" : "0.032"
},
"Perl::Critic::Policy::Freenode::StrictWarnings" : {
"file" : "lib/Perl/Critic/Policy/Freenode/StrictWarnings.pm",
- "version" : "0.031"
+ "version" : "0.032"
},
"Perl::Critic::Policy::Freenode::Threads" : {
"file" : "lib/Perl/Critic/Policy/Freenode/Threads.pm",
- "version" : "0.031"
+ "version" : "0.032"
},
"Perl::Critic::Policy::Freenode::Wantarray" : {
"file" : "lib/Perl/Critic/Policy/Freenode/Wantarray.pm",
- "version" : "0.031"
+ "version" : "0.032"
},
"Perl::Critic::Policy::Freenode::WarningsSwitch" : {
"file" : "lib/Perl/Critic/Policy/Freenode/WarningsSwitch.pm",
- "version" : "0.031"
+ "version" : "0.032"
},
"Perl::Critic::Policy::Freenode::WhileDiamondDefaultAssignment" : {
"file" :
"lib/Perl/Critic/Policy/Freenode/WhileDiamondDefaultAssignment.pm",
- "version" : "0.031"
+ "version" : "0.032"
}
},
"release_status" : "stable",
@@ -195,7 +195,7 @@
},
"x_IRC" : "irc://chat.freenode.net/#perl"
},
- "version" : "0.031",
+ "version" : "0.032",
"x_Dist_Zilla" : {
"perl" : {
"version" : "5.030000"
@@ -246,7 +246,7 @@
"meta_noindex" : 1
},
"Dist::Zilla::Role::ModuleMetadata" : {
- "Module::Metadata" : "1.000036",
+ "Module::Metadata" : "1.000037",
"version" : "0.006"
}
},
@@ -389,7 +389,7 @@
"branch" : null,
"changelog" : "Changes",
"signed" : 0,
- "tag" : "0.031",
+ "tag" : "0.032",
"tag_format" : "%v",
"tag_message" : "%v"
},
@@ -616,7 +616,7 @@
"class" : "Dist::Zilla::Plugin::InstallGuide",
"config" : {
"Dist::Zilla::Role::ModuleMetadata" : {
- "Module::Metadata" : "1.000036",
+ "Module::Metadata" : "1.000037",
"version" : "0.006"
}
},
@@ -711,6 +711,7 @@
"Dan Book <[email protected]>",
"Dan Book <[email protected]>",
"Graham Knop <[email protected]>",
+ "Ryan Voots <[email protected]>",
"William Taylor <[email protected]>"
],
"x_generated_by_perl" : "v5.30.0",
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Perl-Critic-Freenode-0.031/META.yml
new/Perl-Critic-Freenode-0.032/META.yml
--- old/Perl-Critic-Freenode-0.031/META.yml 2019-09-26 01:00:42.000000000
+0200
+++ new/Perl-Critic-Freenode-0.032/META.yml 2019-11-11 17:09:10.000000000
+0100
@@ -26,88 +26,88 @@
provides:
Perl::Critic::Freenode:
file: lib/Perl/Critic/Freenode.pm
- version: '0.031'
+ version: '0.032'
Perl::Critic::Freenode::Utils:
file: lib/Perl/Critic/Freenode/Utils.pm
- version: '0.031'
+ version: '0.032'
Perl::Critic::Policy::Freenode::AmpersandSubCalls:
file: lib/Perl/Critic/Policy/Freenode/AmpersandSubCalls.pm
- version: '0.031'
+ version: '0.032'
Perl::Critic::Policy::Freenode::ArrayAssignAref:
file: lib/Perl/Critic/Policy/Freenode/ArrayAssignAref.pm
- version: '0.031'
+ version: '0.032'
Perl::Critic::Policy::Freenode::BarewordFilehandles:
file: lib/Perl/Critic/Policy/Freenode/BarewordFilehandles.pm
- version: '0.031'
+ version: '0.032'
Perl::Critic::Policy::Freenode::ConditionalDeclarations:
file: lib/Perl/Critic/Policy/Freenode/ConditionalDeclarations.pm
- version: '0.031'
+ version: '0.032'
Perl::Critic::Policy::Freenode::ConditionalImplicitReturn:
file: lib/Perl/Critic/Policy/Freenode/ConditionalImplicitReturn.pm
- version: '0.031'
+ version: '0.032'
Perl::Critic::Policy::Freenode::DeprecatedFeatures:
file: lib/Perl/Critic/Policy/Freenode/DeprecatedFeatures.pm
- version: '0.031'
+ version: '0.032'
Perl::Critic::Policy::Freenode::DiscouragedModules:
file: lib/Perl/Critic/Policy/Freenode/DiscouragedModules.pm
- version: '0.031'
+ version: '0.032'
Perl::Critic::Policy::Freenode::DollarAB:
file: lib/Perl/Critic/Policy/Freenode/DollarAB.pm
- version: '0.031'
+ version: '0.032'
Perl::Critic::Policy::Freenode::Each:
file: lib/Perl/Critic/Policy/Freenode/Each.pm
- version: '0.031'
+ version: '0.032'
Perl::Critic::Policy::Freenode::EmptyReturn:
file: lib/Perl/Critic/Policy/Freenode/EmptyReturn.pm
- version: '0.031'
+ version: '0.032'
Perl::Critic::Policy::Freenode::IndirectObjectNotation:
file: lib/Perl/Critic/Policy/Freenode/IndirectObjectNotation.pm
- version: '0.031'
+ version: '0.032'
Perl::Critic::Policy::Freenode::LexicalForeachIterator:
file: lib/Perl/Critic/Policy/Freenode/LexicalForeachIterator.pm
- version: '0.031'
+ version: '0.032'
Perl::Critic::Policy::Freenode::LoopOnHash:
file: lib/Perl/Critic/Policy/Freenode/LoopOnHash.pm
- version: '0.031'
+ version: '0.032'
Perl::Critic::Policy::Freenode::ModPerl:
file: lib/Perl/Critic/Policy/Freenode/ModPerl.pm
- version: '0.031'
+ version: '0.032'
Perl::Critic::Policy::Freenode::MultidimensionalArrayEmulation:
file: lib/Perl/Critic/Policy/Freenode/MultidimensionalArrayEmulation.pm
- version: '0.031'
+ version: '0.032'
Perl::Critic::Policy::Freenode::OpenArgs:
file: lib/Perl/Critic/Policy/Freenode/OpenArgs.pm
- version: '0.031'
+ version: '0.032'
Perl::Critic::Policy::Freenode::OverloadOptions:
file: lib/Perl/Critic/Policy/Freenode/OverloadOptions.pm
- version: '0.031'
+ version: '0.032'
Perl::Critic::Policy::Freenode::POSIXImports:
file: lib/Perl/Critic/Policy/Freenode/POSIXImports.pm
- version: '0.031'
+ version: '0.032'
Perl::Critic::Policy::Freenode::PackageMatchesFilename:
file: lib/Perl/Critic/Policy/Freenode/PackageMatchesFilename.pm
- version: '0.031'
+ version: '0.032'
Perl::Critic::Policy::Freenode::PreferredAlternatives:
file: lib/Perl/Critic/Policy/Freenode/PreferredAlternatives.pm
- version: '0.031'
+ version: '0.032'
Perl::Critic::Policy::Freenode::Prototypes:
file: lib/Perl/Critic/Policy/Freenode/Prototypes.pm
- version: '0.031'
+ version: '0.032'
Perl::Critic::Policy::Freenode::StrictWarnings:
file: lib/Perl/Critic/Policy/Freenode/StrictWarnings.pm
- version: '0.031'
+ version: '0.032'
Perl::Critic::Policy::Freenode::Threads:
file: lib/Perl/Critic/Policy/Freenode/Threads.pm
- version: '0.031'
+ version: '0.032'
Perl::Critic::Policy::Freenode::Wantarray:
file: lib/Perl/Critic/Policy/Freenode/Wantarray.pm
- version: '0.031'
+ version: '0.032'
Perl::Critic::Policy::Freenode::WarningsSwitch:
file: lib/Perl/Critic/Policy/Freenode/WarningsSwitch.pm
- version: '0.031'
+ version: '0.032'
Perl::Critic::Policy::Freenode::WhileDiamondDefaultAssignment:
file: lib/Perl/Critic/Policy/Freenode/WhileDiamondDefaultAssignment.pm
- version: '0.031'
+ version: '0.032'
requires:
Carp: '0'
Exporter: '0'
@@ -130,7 +130,7 @@
bugtracker: https://github.com/Grinnz/Perl-Critic-Freenode/issues
homepage: https://github.com/Grinnz/Perl-Critic-Freenode
repository: https://github.com/Grinnz/Perl-Critic-Freenode.git
-version: '0.031'
+version: '0.032'
x_Dist_Zilla:
perl:
version: '5.030000'
@@ -170,7 +170,7 @@
inherit_version: '1'
meta_noindex: '1'
Dist::Zilla::Role::ModuleMetadata:
- Module::Metadata: '1.000036'
+ Module::Metadata: '1.000037'
version: '0.006'
name: '@Author::DBOOK/MetaProvides::Package'
version: '2.004003'
@@ -280,7 +280,7 @@
branch: ~
changelog: Changes
signed: 0
- tag: '0.031'
+ tag: '0.032'
tag_format: '%v'
tag_message: '%v'
Dist::Zilla::Role::Git::Repo:
@@ -448,7 +448,7 @@
class: Dist::Zilla::Plugin::InstallGuide
config:
Dist::Zilla::Role::ModuleMetadata:
- Module::Metadata: '1.000036'
+ Module::Metadata: '1.000037'
version: '0.006'
name: '@Author::DBOOK/InstallGuide'
version: '1.200013'
@@ -521,6 +521,7 @@
- 'Dan Book <[email protected]>'
- 'Dan Book <[email protected]>'
- 'Graham Knop <[email protected]>'
+ - 'Ryan Voots <[email protected]>'
- 'William Taylor <[email protected]>'
x_generated_by_perl: v5.30.0
x_serialization_backend: 'YAML::Tiny version 1.73'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Freenode/Utils.pm
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Freenode/Utils.pm
--- old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Freenode/Utils.pm
2019-09-26 01:00:42.000000000 +0200
+++ new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Freenode/Utils.pm
2019-11-11 17:09:10.000000000 +0100
@@ -6,7 +6,7 @@
use Exporter 'import';
use Scalar::Util 'blessed';
-our $VERSION = '0.031';
+our $VERSION = '0.032';
our @EXPORT_OK = qw(is_empty_return is_structural_block);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Freenode.pm
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Freenode.pm
--- old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Freenode.pm 2019-09-26
01:00:42.000000000 +0200
+++ new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Freenode.pm 2019-11-11
17:09:10.000000000 +0100
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '0.031';
+our $VERSION = '0.032';
1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/AmpersandSubCalls.pm
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/AmpersandSubCalls.pm
---
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/AmpersandSubCalls.pm
2019-09-26 01:00:42.000000000 +0200
+++
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/AmpersandSubCalls.pm
2019-11-11 17:09:10.000000000 +0100
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy::Subroutines::ProhibitAmpersandSigils';
-our $VERSION = '0.031';
+our $VERSION = '0.032';
sub default_severity { $SEVERITY_HIGH }
sub default_themes { 'freenode' }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/ArrayAssignAref.pm
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/ArrayAssignAref.pm
---
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/ArrayAssignAref.pm
2019-09-26 01:00:42.000000000 +0200
+++
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/ArrayAssignAref.pm
2019-11-11 17:09:10.000000000 +0100
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent
'Perl::Critic::Policy::ValuesAndExpressions::ProhibitArrayAssignAref';
-our $VERSION = '0.031';
+our $VERSION = '0.032';
sub default_severity { $SEVERITY_MEDIUM }
sub default_themes { 'freenode' }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/BarewordFilehandles.pm
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/BarewordFilehandles.pm
---
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/BarewordFilehandles.pm
2019-09-26 01:00:42.000000000 +0200
+++
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/BarewordFilehandles.pm
2019-11-11 17:09:10.000000000 +0100
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy';
-our $VERSION = '0.031';
+our $VERSION = '0.032';
use constant DESC => 'Using bareword filehandles';
use constant EXPL => 'Bareword filehandles are a legacy feature, creating the
filehandles as package variables. Use lexical, scoped filehandles instead (open
my $fh, ...).';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/ConditionalDeclarations.pm
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/ConditionalDeclarations.pm
---
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/ConditionalDeclarations.pm
2019-09-26 01:00:42.000000000 +0200
+++
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/ConditionalDeclarations.pm
2019-11-11 17:09:10.000000000 +0100
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy::Variables::ProhibitConditionalDeclarations';
-our $VERSION = '0.031';
+our $VERSION = '0.032';
sub default_severity { $SEVERITY_HIGH }
sub default_themes { 'freenode' }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/ConditionalImplicitReturn.pm
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/ConditionalImplicitReturn.pm
---
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/ConditionalImplicitReturn.pm
2019-09-26 01:00:42.000000000 +0200
+++
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/ConditionalImplicitReturn.pm
2019-11-11 17:09:10.000000000 +0100
@@ -9,7 +9,7 @@
use List::Util 'any';
use Perl::Critic::Freenode::Utils qw(is_empty_return is_structural_block);
-our $VERSION = '0.031';
+our $VERSION = '0.032';
use constant DESC => 'Subroutine may implicitly return a conditional
statement';
use constant EXPL => 'When the last statement in a subroutine is a
conditional, the return value may unexpectedly be the evaluated condition.';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/DeprecatedFeatures.pm
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/DeprecatedFeatures.pm
---
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/DeprecatedFeatures.pm
2019-09-26 01:00:42.000000000 +0200
+++
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/DeprecatedFeatures.pm
2019-11-11 17:09:10.000000000 +0100
@@ -7,7 +7,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy';
-our $VERSION = '0.031';
+our $VERSION = '0.032';
sub supported_parameters { () }
sub default_severity { $SEVERITY_HIGH }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/DiscouragedModules.pm
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/DiscouragedModules.pm
---
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/DiscouragedModules.pm
2019-09-26 01:00:42.000000000 +0200
+++
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/DiscouragedModules.pm
2019-11-11 17:09:10.000000000 +0100
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy';
-our $VERSION = '0.031';
+our $VERSION = '0.032';
sub supported_parameters { () }
sub default_severity { $SEVERITY_HIGH }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/DollarAB.pm
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/DollarAB.pm
--- old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/DollarAB.pm
2019-09-26 01:00:42.000000000 +0200
+++ new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/DollarAB.pm
2019-11-11 17:09:10.000000000 +0100
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy';
-our $VERSION = '0.031';
+our $VERSION = '0.032';
use constant DESC => 'Using $a or $b outside sort()';
use constant EXPL => '$a and $b are special package variables for use in
sort() and related functions. Declaring them as lexicals like "my $a" may break
sort(). Use different variable names.';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/Each.pm
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/Each.pm
--- old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/Each.pm
2019-09-26 01:00:42.000000000 +0200
+++ new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/Each.pm
2019-11-11 17:09:10.000000000 +0100
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy';
-our $VERSION = '0.031';
+our $VERSION = '0.032';
use constant DESC => 'each() called';
use constant EXPL => 'The each function may cause undefined behavior when
operating on the hash while iterating. Use a foreach loop over the hash\'s keys
or values instead.';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/EmptyReturn.pm
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/EmptyReturn.pm
---
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/EmptyReturn.pm
2019-09-26 01:00:42.000000000 +0200
+++
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/EmptyReturn.pm
2019-11-11 17:09:10.000000000 +0100
@@ -9,7 +9,7 @@
use List::Util 'any';
use Perl::Critic::Freenode::Utils qw(is_empty_return is_structural_block);
-our $VERSION = '0.031';
+our $VERSION = '0.032';
use constant DESC => 'return called with no arguments';
use constant EXPL => 'return with no arguments may return either undef or an
empty list depending on context. This can be surprising for the same reason as
other context-sensitive returns. Return undef or the empty list explicitly.';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/IndirectObjectNotation.pm
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/IndirectObjectNotation.pm
---
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/IndirectObjectNotation.pm
2019-09-26 01:00:42.000000000 +0200
+++
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/IndirectObjectNotation.pm
2019-11-11 17:09:10.000000000 +0100
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy::Objects::ProhibitIndirectSyntax';
-our $VERSION = '0.031';
+our $VERSION = '0.032';
sub default_severity { $SEVERITY_HIGHEST }
sub default_themes { 'freenode' }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/LexicalForeachIterator.pm
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/LexicalForeachIterator.pm
---
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/LexicalForeachIterator.pm
2019-09-26 01:00:42.000000000 +0200
+++
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/LexicalForeachIterator.pm
2019-11-11 17:09:10.000000000 +0100
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy::Variables::RequireLexicalLoopIterators';
-our $VERSION = '0.031';
+our $VERSION = '0.032';
sub default_severity { $SEVERITY_HIGH }
sub default_themes { 'freenode' }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/LoopOnHash.pm
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/LoopOnHash.pm
---
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/LoopOnHash.pm
2019-09-26 01:00:42.000000000 +0200
+++
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/LoopOnHash.pm
2019-11-11 17:09:10.000000000 +0100
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy::Variables::ProhibitLoopOnHash';
-our $VERSION = '0.031';
+our $VERSION = '0.032';
sub default_severity { $SEVERITY_HIGH }
sub default_themes { 'freenode' }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/ModPerl.pm
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/ModPerl.pm
--- old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/ModPerl.pm
2019-09-26 01:00:42.000000000 +0200
+++ new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/ModPerl.pm
2019-11-11 17:09:10.000000000 +0100
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy';
-our $VERSION = '0.031';
+our $VERSION = '0.032';
use constant DESC => 'Using mod_perl';
use constant EXPL => 'mod_perl is not designed for writing Perl web
applications. Try a Plack-based framework (Web::Simple, Dancer2, Catalyst) or
Mojolicious for a modern approach.';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/MultidimensionalArrayEmulation.pm
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/MultidimensionalArrayEmulation.pm
---
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/MultidimensionalArrayEmulation.pm
2019-09-26 01:00:42.000000000 +0200
+++
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/MultidimensionalArrayEmulation.pm
2019-11-11 17:09:10.000000000 +0100
@@ -8,7 +8,7 @@
use List::Util 'any';
-our $VERSION = '0.031';
+our $VERSION = '0.032';
use constant DESC => 'Use of multidimensional array emulation in hash
subscript';
use constant EXPL => 'A list in a hash subscript used with the $ sigil
triggers Perl 4 multidimensional array emulation. Nest structures using
references instead.';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/OpenArgs.pm
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/OpenArgs.pm
--- old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/OpenArgs.pm
2019-09-26 01:00:42.000000000 +0200
+++ new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/OpenArgs.pm
2019-11-11 17:09:10.000000000 +0100
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy';
-our $VERSION = '0.031';
+our $VERSION = '0.032';
use constant DESC => 'open() called with less than 3 arguments';
use constant EXPL => 'The one- and two-argument forms of open() parse
functionality from the filename, use the three-argument form instead.';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/OverloadOptions.pm
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/OverloadOptions.pm
---
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/OverloadOptions.pm
2019-09-26 01:00:42.000000000 +0200
+++
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/OverloadOptions.pm
2019-11-11 17:09:10.000000000 +0100
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy';
-our $VERSION = '0.031';
+our $VERSION = '0.032';
use constant DESC => 'Using overload.pm without a boolean overload or
fallback';
use constant EXPL => 'When using overload.pm to define overloads for an object
class, always define an overload on "bool" explicitly and set the fallback
option. This prevents objects from autogenerating a potentially surprising
boolean overload, and causes operators for which overloads can\'t be
autogenerated to act on the object as they normally would.';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/POSIXImports.pm
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/POSIXImports.pm
---
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/POSIXImports.pm
2019-09-26 01:00:42.000000000 +0200
+++
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/POSIXImports.pm
2019-11-11 17:09:10.000000000 +0100
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy';
-our $VERSION = '0.031';
+our $VERSION = '0.032';
use constant DESC => 'Using POSIX.pm without an explicit import list';
use constant EXPL => 'Using the POSIX module without specifying an import list
results in importing hundreds of symbols. Import the functions or constants you
want explicitly, or prevent the import with ().';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/PackageMatchesFilename.pm
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/PackageMatchesFilename.pm
---
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/PackageMatchesFilename.pm
2019-09-26 01:00:42.000000000 +0200
+++
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/PackageMatchesFilename.pm
2019-11-11 17:09:10.000000000 +0100
@@ -7,7 +7,7 @@
use Path::Tiny 'path';
use parent 'Perl::Critic::Policy';
-our $VERSION = '0.031';
+our $VERSION = '0.032';
use constant DESC => 'No package matching the module filename';
use constant EXPL => 'A Perl module file is expected to contain a matching
package name, so it can be used after loading it from the filesystem. A module
file that doesn\'t contain a matching package name usually indicates an error.';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/PreferredAlternatives.pm
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/PreferredAlternatives.pm
---
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/PreferredAlternatives.pm
2019-09-26 01:00:42.000000000 +0200
+++
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/PreferredAlternatives.pm
2019-11-11 17:09:10.000000000 +0100
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy';
-our $VERSION = '0.031';
+our $VERSION = '0.032';
sub supported_parameters { () }
sub default_severity { $SEVERITY_LOW }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/Prototypes.pm
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/Prototypes.pm
---
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/Prototypes.pm
2019-09-26 01:00:42.000000000 +0200
+++
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/Prototypes.pm
2019-11-11 17:09:10.000000000 +0100
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy';
-our $VERSION = '0.031';
+our $VERSION = '0.032';
use constant DESC => 'Using function prototypes';
use constant EXPL => 'Function prototypes (sub foo ($@) { ... }) will usually
not do what you want. Omit the prototype, or use signatures instead.';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/StrictWarnings.pm
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/StrictWarnings.pm
---
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/StrictWarnings.pm
2019-09-26 01:00:42.000000000 +0200
+++
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/StrictWarnings.pm
2019-11-11 17:09:10.000000000 +0100
@@ -8,7 +8,7 @@
use parent 'Perl::Critic::Policy';
use version;
-our $VERSION = '0.031';
+our $VERSION = '0.032';
use constant DESC => 'Missing strict or warnings';
use constant EXPL => 'The strict and warnings pragmas are important to avoid
common pitfalls and deprecated/experimental functionality. Make sure each
script or module contains "use strict; use warnings;" or a module that does
this for you.';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/Threads.pm
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/Threads.pm
--- old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/Threads.pm
2019-09-26 01:00:42.000000000 +0200
+++ new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/Threads.pm
2019-11-11 17:09:10.000000000 +0100
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy';
-our $VERSION = '0.031';
+our $VERSION = '0.032';
use constant DESC => 'Using interpreter threads';
use constant EXPL => 'Interpreter threads are discouraged, they are not
lightweight and fast as other threads may be. Try an event loop, forks.pm, or
Parallel::Prefork.';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/Wantarray.pm
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/Wantarray.pm
--- old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/Wantarray.pm
2019-09-26 01:00:42.000000000 +0200
+++ new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/Wantarray.pm
2019-11-11 17:09:10.000000000 +0100
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy';
-our $VERSION = '0.031';
+our $VERSION = '0.032';
use constant DESC => 'wantarray() called';
use constant EXPL => 'Context-sensitive functions lead to unexpected errors or
vulnerabilities. Functions should explicitly return either a list or a scalar
value.';
@@ -18,7 +18,7 @@
sub violates {
my ($self, $elem) = @_;
- return () unless $elem eq 'wantarray' and is_function_call $elem;
+ return () unless (($elem eq 'wantarray' or $elem->literal eq
'CORE::wantarray') and is_function_call $elem);
return $self->violation(DESC, EXPL, $elem);
}
@@ -41,6 +41,7 @@
potential for confusion or vulnerability.
return wantarray ? ('a','b','c') : 3; # not ok
+ return CORE::wantarray ? ('a', 'b', 'c') : 3; # not ok
return ('a','b','c'); # ok
return 3; # ok
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/WarningsSwitch.pm
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/WarningsSwitch.pm
---
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/WarningsSwitch.pm
2019-09-26 01:00:42.000000000 +0200
+++
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/WarningsSwitch.pm
2019-11-11 17:09:10.000000000 +0100
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy';
-our $VERSION = '0.031';
+our $VERSION = '0.032';
use constant DESC => 'Using -w switch';
use constant EXPL => 'Don\'t use -w (or -W), it\'s too eager. use warnings;
instead.';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/WhileDiamondDefaultAssignment.pm
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/WhileDiamondDefaultAssignment.pm
---
old/Perl-Critic-Freenode-0.031/lib/Perl/Critic/Policy/Freenode/WhileDiamondDefaultAssignment.pm
2019-09-26 01:00:42.000000000 +0200
+++
new/Perl-Critic-Freenode-0.032/lib/Perl/Critic/Policy/Freenode/WhileDiamondDefaultAssignment.pm
2019-11-11 17:09:10.000000000 +0100
@@ -6,7 +6,7 @@
use Perl::Critic::Utils qw(:severities :classification :ppi);
use parent 'Perl::Critic::Policy';
-our $VERSION = '0.031';
+our $VERSION = '0.032';
use constant DESC => '<>/<<>>/readline/readdir/each result not explicitly
assigned in while condition';
use constant EXPL => 'When used alone in a while condition, the <>/<<>>
operator, readline, readdir, and each functions assign their result to $_, but
do not localize it. Assign the result to an explicit lexical variable instead
(my $line = <...>, my $dir = readdir ...)';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Perl-Critic-Freenode-0.031/t/Freenode/Wantarray.run
new/Perl-Critic-Freenode-0.032/t/Freenode/Wantarray.run
--- old/Perl-Critic-Freenode-0.031/t/Freenode/Wantarray.run 2019-09-26
01:00:42.000000000 +0200
+++ new/Perl-Critic-Freenode-0.032/t/Freenode/Wantarray.run 2019-11-11
17:09:10.000000000 +0100
@@ -4,6 +4,18 @@
return wantarray ? () : undef;
+## name UseCoreWantArray
+## failures 1
+## cut
+
+return CORE::wantarray ? () : undef;
+
+## name UseCoreApostrapheWantArray
+## failures 1
+## cut
+
+return CORE'wantarray ? () : undef;
+
## name NoWantarray
## failures 0
## cut
