Hello community,
here is the log from the commit of package perl-Data-Printer for openSUSE:Factory checked in at 2016-02-25 22:01:56
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Data-Printer (Old)
and /work/SRC/openSUSE:Factory/.perl-Data-Printer.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Data-Printer"
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Data-Printer/perl-Data-Printer.changes 2015-06-12 20:30:55.000000000 +0200
+++ /work/SRC/openSUSE:Factory/.perl-Data-Printer.new/perl-Data-Printer.changes 2016-02-25 22:48:49.000000000 +0100
@@ -1,0 +2,36 @@
+Sun Feb 7 09:50:21 UTC 2016 - coolo@suse.com
+
+- updated to 0.38
+ see /usr/share/doc/packages/perl-Data-Printer/Changes
+
+ 0.38 2016-01-28
+ BUG FIXES:
+ - removed Test::Most unlisted dependency
+ (thanks Marco Masetti for reporting)
+
+ 0.37 2016-01-28
+ NEW FEATURES:
+ - Support for displaying scalar's unicode flag
+ (Michael Conrad)
+ BUG FIXES:
+ - Fixed test failure due to leaking environment variables
+ (Thomas Sibley)
+ - class_method only works if it's actually something we can call
+ (RenatoCRON)
+ - Attempt to fix a taint error on old Win32 systems
+ (Baldur Kristinsson)
+ - Prevent some 5.8 errors caused by the version module
+ (Baldur Kristinsson)
+ - Data::Printer::Filter should imports np() as well
+ (Olaf Alders)
+ - Multiline property is now properly propagated
+ (Adam Rosenstein)
+ OTHER:
+ - Removed some trailing whitespaces (Ivan Bessarabov)
+ - Extended tests for finding trailing whitespaces (Ivan Bessarabov)
+ - Documented caveat of using p() in variable declarations (vividsnow)
+ - Documented that the 'DB' filter supports DBIx::Class (Olaf Alders)
+ - New .gitignore file (David Lowe)
+ - Updated .travis.yml (Ivan Bessarabov)
+
+-------------------------------------------------------------------
Old:
----
Data-Printer-0.36.tar.gz
New:
----
Data-Printer-0.38.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Data-Printer.spec ++++++
--- /var/tmp/diff_new_pack.eJ99V3/_old 2016-02-25 22:48:50.000000000 +0100
+++ /var/tmp/diff_new_pack.eJ99V3/_new 2016-02-25 22:48:50.000000000 +0100
@@ -1,7 +1,7 @@
#
# spec file for package perl-Data-Printer
#
-# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2016 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-Data-Printer
-Version: 0.36
+Version: 0.38
Release: 0
%define cpan_name Data-Printer
Summary: Colored Pretty-Print of Perl Data Structures and Objects
++++++ Data-Printer-0.36.tar.gz -> Data-Printer-0.38.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.36/.travis.yml new/Data-Printer-0.38/.travis.yml
--- old/Data-Printer-0.36/.travis.yml 1970-01-01 01:00:00.000000000 +0100
+++ new/Data-Printer-0.38/.travis.yml 2016-01-28 01:03:20.000000000 +0100
@@ -0,0 +1,8 @@
+language: perl
+perl:
+ - "5.10"
+ - "5.12"
+ - "5.14"
+ - "5.16"
+ - "5.18"
+ - "5.20"
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.36/Changes new/Data-Printer-0.38/Changes
--- old/Data-Printer-0.36/Changes 2015-05-29 23:42:37.000000000 +0200
+++ new/Data-Printer-0.38/Changes 2016-01-28 18:56:43.000000000 +0100
@@ -1,5 +1,35 @@
Revision history for Data-Printer
+0.38 2016-01-28
+ BUG FIXES:
+ - removed Test::Most unlisted dependency
+ (thanks Marco Masetti for reporting)
+
+0.37 2016-01-28
+ NEW FEATURES:
+ - Support for displaying scalar's unicode flag
+ (Michael Conrad)
+ BUG FIXES:
+ - Fixed test failure due to leaking environment variables
+ (Thomas Sibley)
+ - class_method only works if it's actually something we can call
+ (RenatoCRON)
+ - Attempt to fix a taint error on old Win32 systems
+ (Baldur Kristinsson)
+ - Prevent some 5.8 errors caused by the version module
+ (Baldur Kristinsson)
+ - Data::Printer::Filter should imports np() as well
+ (Olaf Alders)
+ - Multiline property is now properly propagated
+ (Adam Rosenstein)
+ OTHER:
+ - Removed some trailing whitespaces (Ivan Bessarabov)
+ - Extended tests for finding trailing whitespaces (Ivan Bessarabov)
+ - Documented caveat of using p() in variable declarations (vividsnow)
+ - Documented that the 'DB' filter supports DBIx::Class (Olaf Alders)
+ - New .gitignore file (David Lowe)
+ - Updated .travis.yml (Ivan Bessarabov)
+
0.36 2015-05-29
Bumping 0.35_01 to stable. Below is the (repeated) changelog,
with the single addition of the 'scalar_quotes' patch.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.36/MANIFEST new/Data-Printer-0.38/MANIFEST
--- old/Data-Printer-0.36/MANIFEST 2015-05-29 23:53:44.000000000 +0200
+++ new/Data-Printer-0.38/MANIFEST 2016-01-28 18:58:30.000000000 +0100
@@ -1,3 +1,4 @@
+.travis.yml
Changes
examples/try_me.pl
lib/Data/Printer.pm
@@ -18,6 +19,7 @@
t/03-conf.t
t/03-conf_not_ref.t
t/04-multiline.t
+t/04-multiline2.t
t/05-obj.t
t/06-obj2.t
t/07-sort.t
@@ -47,6 +49,7 @@
t/25-weak.t
t/26-tainted.t
t/26.2-tainted_rc.t
+t/26.7-unicode.t
t/27-pass_through.t
t/27.2-pass_through.t
t/27.3-pass_through-DDP.t
@@ -72,5 +75,6 @@
t/45-np.t
xt/pod-coverage.t
xt/pod.t
+xt/whitespaces.t
META.yml Module YAML meta-data (added by MakeMaker)
META.json Module JSON meta-data (added by MakeMaker)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.36/META.json new/Data-Printer-0.38/META.json
--- old/Data-Printer-0.36/META.json 2015-05-29 23:53:44.000000000 +0200
+++ new/Data-Printer-0.38/META.json 2016-01-28 18:58:30.000000000 +0100
@@ -4,7 +4,7 @@
"Breno G. de Oliveira "
],
"dynamic_config" : 1,
- "generated_by" : "ExtUtils::MakeMaker version 7.02, CPAN::Meta::Converter version 2.142690",
+ "generated_by" : "ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version 2.142690",
"license" : [
"perl_5"
],
@@ -59,5 +59,5 @@
"url" : "https://github.com/garu/Data-Printer"
}
},
- "version" : "0.36"
+ "version" : "0.38"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.36/META.yml new/Data-Printer-0.38/META.yml
--- old/Data-Printer-0.36/META.yml 2015-05-29 23:53:44.000000000 +0200
+++ new/Data-Printer-0.38/META.yml 2016-01-28 18:58:29.000000000 +0100
@@ -7,7 +7,7 @@
configure_requires:
ExtUtils::MakeMaker: '0'
dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 7.02, CPAN::Meta::Converter version 2.142690'
+generated_by: 'ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version 2.142690'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -34,4 +34,4 @@
bugtracker: https://github.com/garu/Data-Printer/issues/
license: http://dev.perl.org/licenses/
repository: https://github.com/garu/Data-Printer
-version: '0.36'
+version: '0.38'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.36/examples/try_me.pl new/Data-Printer-0.38/examples/try_me.pl
--- old/Data-Printer-0.36/examples/try_me.pl 2014-08-12 05:36:06.000000000 +0200
+++ new/Data-Printer-0.38/examples/try_me.pl 2015-05-30 00:50:51.000000000 +0200
@@ -36,4 +36,3 @@
weaken $sample{ref};
use DDP; p %sample;
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.36/lib/DDP.pm new/Data-Printer-0.38/lib/DDP.pm
--- old/Data-Printer-0.36/lib/DDP.pm 2014-08-12 05:36:06.000000000 +0200
+++ new/Data-Printer-0.38/lib/DDP.pm 2015-05-30 00:50:51.000000000 +0200
@@ -30,4 +30,3 @@
=head1 SEE ALSO
LData::Printer
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.36/lib/Data/Printer/Filter/DB.pm new/Data-Printer-0.38/lib/Data/Printer/Filter/DB.pm
--- old/Data-Printer-0.36/lib/Data/Printer/Filter/DB.pm 2014-09-13 02:17:03.000000000 +0200
+++ new/Data-Printer-0.38/lib/Data/Printer/Filter/DB.pm 2016-01-28 01:03:20.000000000 +0100
@@ -9,7 +9,7 @@
my $name = $dbh->{Driver}{Name};
my $string = "$name Database Handle ("
- . ($dbh->{Active}
+ . ($dbh->{Active}
? colored('connected', 'bright_green')
: colored('disconnected', 'bright_red'))
. ') {'
@@ -45,7 +45,7 @@
if ($sth->{NUM_OF_PARAMS} > 0) {
my $values = $sth->{ParamValues};
if ($values) {
- $str .= ' ('
+ $str .= ' ('
. join(', ',
map {
my $v = $values->{$_};
@@ -129,9 +129,13 @@
=head1 DESCRIPTION
-This is a filter plugin for LData::Printer. It filters through
-L<DBI>'s handlers (dbh) and statement (sth) objects displaying relevant
-information for the user.
+This is a filter plugin for LData::Printer. It filters through L<DBI>'s
+handlers (dbh) and statement (sth) objects displaying relevant information for
+the user. It also filters any object which inherits from
+LDBIx::Class::Schema, LDBIx::Class::ResultSet or
+LDBIx::Class::ResultSetColumn.
+
+=head2 DBI Sample Output
L<DBI> is an extremely powerful and complete database interface. But
it does a lot of magic under the hood, making their objects somewhat harder
@@ -182,9 +186,6 @@
Note that if your driver does not support holding of parameter values, you'll get a
C<bindings unavailable> message instead of the bound values.
-
=head1 SEE ALSO
-LData::Printer
-
-
+LData::Printer, LData::Printer::Filter
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.36/lib/Data/Printer/Filter/DateTime.pm new/Data-Printer-0.38/lib/Data/Printer/Filter/DateTime.pm
--- old/Data-Printer-0.36/lib/Data/Printer/Filter/DateTime.pm 2014-08-12 05:36:06.000000000 +0200
+++ new/Data-Printer-0.38/lib/Data/Printer/Filter/DateTime.pm 2015-05-30 00:50:51.000000000 +0200
@@ -163,5 +163,3 @@
=head1 SEE ALSO
LData::Printer
-
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.36/lib/Data/Printer/Filter/Digest.pm new/Data-Printer-0.38/lib/Data/Printer/Filter/Digest.pm
--- old/Data-Printer-0.36/lib/Data/Printer/Filter/Digest.pm 2014-08-12 05:36:06.000000000 +0200
+++ new/Data-Printer-0.38/lib/Data/Printer/Filter/Digest.pm 2015-05-30 00:50:51.000000000 +0200
@@ -141,5 +141,3 @@
=head1 SEE ALSO
LData::Printer
-
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.36/lib/Data/Printer/Filter.pm new/Data-Printer-0.38/lib/Data/Printer/Filter.pm
--- old/Data-Printer-0.36/lib/Data/Printer/Filter.pm 2014-08-12 05:36:06.000000000 +0200
+++ new/Data-Printer-0.38/lib/Data/Printer/Filter.pm 2016-01-28 01:51:20.000000000 +0100
@@ -50,7 +50,7 @@
};
my $newline = sub {
- return ${$properties{_linebreak}} . (' ' x $properties{_current_indent});
+ return $properties{_linebreak} . (' ' x $properties{_current_indent});
};
my $indent = sub {
@@ -65,11 +65,15 @@
return;
};
- my $imported = sub (\[@$%&];%) {
+ my $imported_p = sub (\[@$%&];%) {
my ($item, $p) = @_;
return Data::Printer::p( $item, %properties );
};
+ my $imported_np = sub (\[@$%&];%) {
+ my ($item, $p) = @_;
+ return Data::Printer::np( $item, %properties );
+ };
{
no strict 'refs';
*{"$caller\::filter"} = $filter;
@@ -77,7 +81,8 @@
*{"$caller\::outdent"} = $outdent;
*{"$caller\::newline"} = $newline;
- *{"$caller\::p"} = $imported;
+ *{"$caller\::np"} = $imported_np;
+ *{"$caller\::p"} = $imported_p;
*{"$caller\::_filter_list"} = $filters;
*{"$caller\::_extra_options"} = $extras;
@@ -106,7 +111,7 @@
filter 'SCALAR', sub {
my ($ref, $properties) = @_;
my $val = $$ref;
-
+
if ($val > 100) {
return 'too big!!';
}
@@ -362,5 +367,3 @@
This module is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. See L<perlartistic>.
-
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.36/lib/Data/Printer.pm new/Data-Printer-0.38/lib/Data/Printer.pm
--- old/Data-Printer-0.36/lib/Data/Printer.pm 2015-05-29 23:44:28.000000000 +0200
+++ new/Data-Printer-0.38/lib/Data/Printer.pm 2016-01-28 18:57:13.000000000 +0100
@@ -6,14 +6,17 @@
use Sort::Naturally;
use Carp qw(croak);
use Clone::PP qw(clone);
+use Package::Stash;
use if $] >= 5.010, 'Hash::Util::FieldHash' => qw(fieldhash);
use if $] < 5.010, 'Hash::Util::FieldHash::Compat' => qw(fieldhash);
use File::Spec;
use File::HomeDir ();
use Fcntl;
-use version 0.77 ();
+# This causes strangeness wrt UNIVERSAL on Perl 5.8 with some versions of version.pm.
+# Instead, we now require version in the VSTRING() method.
+# use version 0.77 ();
-our $VERSION = '0.36';
+our $VERSION = '0.38';
BEGIN {
if ($^O =~ /Win32/i) {
@@ -22,9 +25,7 @@
}
}
-
# defaults
-my $BREAK = "\n";
my $properties = {
'name' => 'var',
'indent' => 4,
@@ -39,6 +40,7 @@
'end_separator' => 0,
'show_tied' => 1,
'show_tainted' => 1,
+ 'show_unicode' => 0,
'show_weak' => 1,
'show_readonly' => 0,
'show_lvalue' => 1,
@@ -71,6 +73,7 @@
'caller_info' => 'bright_cyan',
'weak' => 'cyan',
'tainted' => 'red',
+ 'unicode' => 'bright_yellow',
'escaped' => 'bright_red',
'unknown' => 'bright_yellow on_blue',
},
@@ -98,8 +101,8 @@
CODE => [ \&CODE ],
GLOB => [ \&GLOB ],
VSTRING => [ \&VSTRING ],
- LVALUE => [ \&LVALUE ],
- FORMAT => [ \&FORMAT ],
+ LVALUE => [ \&LVALUE ],
+ FORMAT => [ \&FORMAT ],
Regexp => [ \&Regexp ],
-unknown=> [ \&_unknown ],
-class => [ \&_class ],
@@ -107,7 +110,7 @@
_output => *STDERR, # used internally
_current_indent => 0, # used internally
- _linebreak => \$BREAK, # used internally
+ _linebreak => "\n", # used internally
_seen => {}, # used internally
_seen_override => {}, # used internally
_depth => 0, # used internally
@@ -206,15 +209,14 @@
croak 'When calling p() without prototypes, please pass arguments as references'
unless ref $_[0];
-
my ($item, %local_properties) = @_;
local %ENV = %ENV;
-
my $p = _merge(\%local_properties);
+
unless ($p->{multiline}) {
- $BREAK = ' ';
- $p->{'indent'} = 0;
- $p->{'index'} = 0;
+ $p->{'_linebreak'} = ' ';
+ $p->{'indent'} = 0;
+ $p->{'index'} = 0;
}
# We disable colors if colored is set to false.
@@ -339,6 +341,9 @@
$string .= ' ' . colored('(TAINTED)', $p->{color}->{'tainted'})
if $p->{show_tainted} and Scalar::Util::tainted($$item);
+ $string .= ' ' . colored('(U)', $p->{color}->{'unicode'})
+ if $p->{show_unicode} and utf8::is_utf8($$item);
+
$p->{_tie} = ref tied $$item;
if ($p->{show_readonly} and &Internals::SvREADONLY( $item )) {
@@ -434,7 +439,7 @@
$string .= '[]';
}
else {
- $string .= "[$BREAK";
+ $string .= "[$p->{_linebreak}";
$p->{_current_indent} += $p->{indent};
foreach my $i (0 .. $#{$item} ) {
@@ -465,7 +470,7 @@
$string .= $p->{separator}
if $i < $#{$item} || $p->{end_separator};
- $string .= $BREAK;
+ $string .= $p->{_linebreak};
my $size = 2 + length($i); # [10], [100], etc
substr $p->{name}, -$size, $size, '';
@@ -525,7 +530,7 @@
$string .= '{}';
}
else {
- $string .= "{$BREAK";
+ $string .= "{$p->{_linebreak}";
$p->{_current_indent} += $p->{indent};
my $total_keys = scalar keys %$item;
@@ -598,7 +603,7 @@
$string .= $p->{separator}
if --$total_keys > 0 || $p->{end_separator};
- $string .= $BREAK;
+ $string .= $p->{_linebreak};
my $size = 2 + length($raw_key); # {foo}, {z}, etc
substr $p->{name}, -$size, $size, '';
@@ -636,7 +641,9 @@
sub VSTRING {
my ($item, $p) = @_;
+ eval { require version };
my $string = '';
+ # This will raise an error if we have version < 0.77;
$string .= colored(version->declare($$item)->normal, $p->{color}->{'vstring'});
return $string;
}
@@ -644,7 +651,7 @@
sub FORMAT {
my ($item, $p) = @_;
my $string = '';
- $string .= colored("FORMAT", $p->{color}->{'format'});
+ $string .= colored('FORMAT', $p->{color}->{'format'});
return $string;
}
@@ -719,7 +726,7 @@
# if the user specified a method to use instead, we do that
if ( $p->{class_method} and my $method = $item->can($p->{class_method}) ) {
- return $method->($item, $p);
+ return $method->($item, $p) if ref $method eq 'CODE';
}
my $string = '';
@@ -737,8 +744,7 @@
if ($p->{class}{expand} eq 'all'
or $p->{class}{expand} >= $p->{class}{_depth}
) {
- $string .= " {$BREAK";
-
+ $string .= " {$p->{_linebreak}";
$p->{_current_indent} += $p->{indent};
if ($] >= 5.010) {
@@ -749,8 +755,6 @@
# Package::Stash dies on blessed XS
eval {
- require Package::Stash;
-
my $stash = Package::Stash->new($ref);
if ( my @superclasses = @{$stash->get_symbol('@ISA')||[]} ) {
@@ -759,7 +763,7 @@
. 'Parents '
. join(', ', map { colored($_, $p->{color}->{'class'}) }
@superclasses
- ) . $BREAK;
+ ) . $p->{_linebreak};
}
if ( $p->{class}{linear_isa} and
@@ -773,10 +777,14 @@
. 'Linear @ISA '
. join(', ', map { colored( $_, $p->{color}->{'class'}) }
@{mro::get_linear_isa($ref)}
- ) . $BREAK;
+ ) . $p->{_linebreak};
}
}
};
+ if ($@) {
+ warn "*** WARNING *** Could not get superclasses for $ref: $@"
+ unless $@ =~ / is not a module name at /;
+ }
$string .= _show_methods($ref, $p)
if $p->{class}{show_methods} and $p->{class}{show_methods} ne 'none';
@@ -787,7 +795,7 @@
local $p->{_reftype} = Scalar::Util::reftype $item;
$string .= _p($item, $p);
- $string .= $BREAK;
+ $string .= $p->{_linebreak};
}
$p->{_current_indent} -= $p->{indent};
@@ -858,6 +866,10 @@
@{mro::get_linear_isa($ref)},
$p->{class}{universal} ? 'UNIVERSAL' : ()
};
+ if ($@) {
+ warn "*** WARNING *** Could not get all_methods for $ref: $@"
+ unless $@ =~ / is not a module name at /;
+ }
METHOD:
foreach my $method (@all_methods) {
@@ -889,7 +901,7 @@
. (@list ? ' : ' : '')
. join(', ', map { colored($_, $p->{color}->{method}) }
@list
- ) . $BREAK;
+ ) . $p->{_linebreak};
}
return $string;
@@ -917,7 +929,7 @@
$message =~ s/\b__FILENAME__\b/$caller[1]/g;
$message =~ s/\b__LINE__\b/$caller[2]/g;
- return colored($message, $p->{color}{caller_info}) . $BREAK;
+ return colored($message, $p->{color}{caller_info}) . $p->{_linebreak};
}
@@ -1103,7 +1115,7 @@
and human-friendly way?
use Data::Printer; # or just "use DDP" for short
-
+
p @array; # no need to pass references
Code above might output something like this (with colors!):
@@ -1387,6 +1399,7 @@
deparse => 0, # use B::Deparse to expand (expose) subroutines
show_tied => 1, # expose tied variables
show_tainted => 1, # expose tainted variables
+ show_unicode => 0, # show unicode flag if it exists
show_weak => 1, # expose weak references
show_readonly => 0, # expose scalar variables marked as read-only
show_lvalue => 1, # expose lvalue types
@@ -1680,6 +1693,12 @@
p($foo); # right
p($bar); # right
+You can't use it in variable declarations (it will most likely not do what
+you want):
+
+ p my @array = qw(a b c d); # wrong
+ my @array = qw(a b c d); p @array; # right
+
The default mode is to use prototypes, in which you are supposed to pass
variables, not anonymous structures:
@@ -1919,7 +1938,7 @@
use HTML::FromANSI;
use Data::Printer;
-
+
my $html_output = ansi2html( p($object, colored => 1) );
In the example above, the C<$html_output> variable contains the
@@ -2079,6 +2098,8 @@
=over 4
+=item * Adam Rosenstein
+
=item * Allan Whiteford
=item * Andreas König
@@ -2087,12 +2108,22 @@
=item * Árpád Szász
+=item * Athanasios Douitsis (aduitsis)
+
+=item * Baldur Kristinsson
+
=item * brian d foy
+=item * Chad Granum (exodist)
+
=item * Chris Prather (perigrin)
+=item * David D Lowe (Flimm)
+
=item * David Golden (xdg)
+=item * David Precious (bigpresh)
+
=item * David Raab
=item * Damien Krotkine (dams)
@@ -2109,14 +2140,20 @@
=item * Fitz Elliott
+=item * Frew Schmidt (frew)
+
=item * Ivan Bessarabov (bessarabv)
=item * J Mash
+=item * Jay Allen (jayallen)
+
=item * Jesse Luehrs (doy)
=item * Joel Berger (jberger)
+=item * John S. Anderson (genehack)
+
=item * Kartik Thakore (kthakore)
=item * Kevin Dawson (bowtie)
@@ -2127,22 +2164,38 @@
=item * Marcel Grünauer (hanekomu)
+=item * Marco Masetti (grubert65)
+
=item * Mark Fowler (Trelane)
=item * Matt S. Trout (mst)
=item * Maxim Vuets
+=item * Michael Conrad
+
=item * Mike Doherty (doherty)
+=item * Nuba Princigalli (nuba)
+
+=item * Olaf Alders (oalders)
+
=item * Paul Evans (LeoNerd)
+=item * Pedro Melo (melo)
+
=item * Przemysław Wesołek (jest)
=item * Rebecca Turner (iarna)
+=item * Renato Cron (renatoCRON)
+
+=item * Ricardo Signes (rjbs)
+
=item * Rob Hoelz (hoelzro)
+=item * sawyer
+
=item * Sebastian Willing (Sewi)
=item * Sergey Aleynikov (randir)
@@ -2155,10 +2208,16 @@
=item * Tatsuhiko Miyagawa (miyagawa)
+=item * Thomas Sibley (tsibley)
+
=item * Tim Heaney (oylenshpeegul)
=item * Torsten Raudssus (Getty)
+=item * Tokuhiro Matsuno (tokuhirom)
+
+=item * vividsnow
+
=item * Wesley Dal`Col (blabos)
=item * Yanick Champoux (yanick)
@@ -2199,6 +2258,3 @@
FAILURE OF THE SOFTWARE TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF
SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
SUCH DAMAGES.
-
-
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.36/t/01-p.t new/Data-Printer-0.38/t/01-p.t
--- old/Data-Printer-0.36/t/01-p.t 2014-12-22 09:32:21.000000000 +0100
+++ new/Data-Printer-0.38/t/01-p.t 2015-05-30 00:58:54.000000000 +0200
@@ -274,10 +274,7 @@
|
^ \s* go \s
}x;
-is( p($regex), '\
- |
- ^ \s* go \s
- (modifiers: x)', 'creepy regex' );
+is( p($regex), "\\ \n |\n ^ \\s* go \\s\n (modifiers: x)", 'creepy regex' );
$array[0] = qr{\d(\W)[\s]*};
$array[2][1] = qr{\d(\W)[\s]*};
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.36/t/04-multiline2.t new/Data-Printer-0.38/t/04-multiline2.t
--- old/Data-Printer-0.36/t/04-multiline2.t 1970-01-01 01:00:00.000000000 +0100
+++ new/Data-Printer-0.38/t/04-multiline2.t 2016-01-28 18:53:25.000000000 +0100
@@ -0,0 +1,33 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use Test::More tests => 10;
+
+BEGIN {
+ $ENV{ANSI_COLORS_DISABLED} = 1;
+ delete $ENV{DATAPRINTERRC};
+ use File::HomeDir::Test; # avoid user's .dataprinter
+};
+
+use Data::Printer multiline => 1, return_value => 'dump';
+
+my $x = {a=>1,b=>2};
+
+like p($x) , qr/\n/, 'Default with linebreaks';
+unlike p($x,multiline=>0), qr/\n/, 'Override no linebreaks';
+like p($x) , qr/\n/, 'Back to default with linebreaks';
+unlike p($x,multiline=>0), qr/\n/, 'Override no linebreaks';
+like p($x,multiline=>1), qr/\n/, 'Override with linebreaks';
+
+############################
+$SIG{__WARN__} = sub {};
+require ( delete $INC{'Data/Printer.pm'} );
+Data::Printer->import( multiline => 0, return_value => 'dump' );
+$SIG{__WARN__} = undef;
+############################
+
+unlike p($x) , qr/\n/, 'Default without linebreaks';
+like p($x,multiline=>1), qr/\n/, 'Override with linebreaks';
+unlike p($x) , qr/\n/, 'Back to default without linebreaks';
+like p($x,multiline=>1), qr/\n/, 'Override with linebreaks';
+unlike p($x,multiline=>0), qr/\n/, 'Override without linebreaks';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.36/t/05-obj.t new/Data-Printer-0.38/t/05-obj.t
--- old/Data-Printer-0.36/t/05-obj.t 2014-12-22 09:39:40.000000000 +0100
+++ new/Data-Printer-0.38/t/05-obj.t 2015-05-30 00:50:51.000000000 +0200
@@ -105,7 +105,7 @@
}
}', 'testing objects (explicitly asking for all methods)' );
-is( p($obj, class => { internals => 0 } ),
+is( p($obj, class => { internals => 0 } ),
'Foo {
Parents Bar
public methods (4) : baz, borg, foo, new
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.36/t/06-obj2.t new/Data-Printer-0.38/t/06-obj2.t
--- old/Data-Printer-0.36/t/06-obj2.t 2014-12-22 09:40:00.000000000 +0100
+++ new/Data-Printer-0.38/t/06-obj2.t 2015-05-30 00:50:51.000000000 +0200
@@ -32,7 +32,7 @@
internals: 42
}', 'testing blessed scalar' );
-is( p($array ),
+is( p($array ),
'FooArray {
public methods (2) : foo, new
private methods (0)
@@ -42,7 +42,7 @@
SKIP: {
skip 'no internals in blessed subs yet', 1;
-is( p($code),
+is( p($code),
'FooCode {
public methods (2) : foo, new
private methods (0)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.36/t/12-filter_class.t new/Data-Printer-0.38/t/12-filter_class.t
--- old/Data-Printer-0.36/t/12-filter_class.t 2014-12-22 10:17:39.000000000 +0100
+++ new/Data-Printer-0.38/t/12-filter_class.t 2016-01-28 01:53:02.000000000 +0100
@@ -17,7 +17,7 @@
return_value => 'dump',
indent => 5,
_current_indent => 0,
- _linebreak => \"\n",
+ _linebreak => "\n",
};
sub test {
@@ -57,4 +57,7 @@
is $filters->{HASH}->[0]->('HASH', $properties), 'other test for: "HASH"', 'HASH filter with p()';
+my $foo = 1;
+ok( np( $foo ), 'np is imported' );
+
done_testing;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.36/t/13.2-filter_db.t new/Data-Printer-0.38/t/13.2-filter_db.t
--- old/Data-Printer-0.36/t/13.2-filter_db.t 2014-12-22 09:48:46.000000000 +0100
+++ new/Data-Printer-0.38/t/13.2-filter_db.t 2015-05-30 00:50:51.000000000 +0200
@@ -131,4 +131,3 @@
}
done_testing;
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.36/t/13.3-filter_digest.t new/Data-Printer-0.38/t/13.3-filter_digest.t
--- old/Data-Printer-0.36/t/13.3-filter_digest.t 2014-12-22 09:50:08.000000000 +0100
+++ new/Data-Printer-0.38/t/13.3-filter_digest.t 2015-05-30 00:50:51.000000000 +0200
@@ -19,7 +19,7 @@
my $data = 'I can has Digest?';
foreach my $module (qw( Digest::Adler32 Digest::MD2 Digest::MD4 Digest::MD5
- Digest::SHA Digest::SHA1
+ Digest::SHA Digest::SHA1
Digest::Whirlpool
)) {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.36/t/20-handles.t new/Data-Printer-0.38/t/20-handles.t
--- old/Data-Printer-0.36/t/20-handles.t 2014-12-22 09:57:03.000000000 +0100
+++ new/Data-Printer-0.38/t/20-handles.t 2015-05-30 00:50:51.000000000 +0200
@@ -64,4 +64,3 @@
};
done_testing();
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.36/t/26.2-tainted_rc.t new/Data-Printer-0.38/t/26.2-tainted_rc.t
--- old/Data-Printer-0.36/t/26.2-tainted_rc.t 2014-12-22 10:00:09.000000000 +0100
+++ new/Data-Printer-0.38/t/26.2-tainted_rc.t 2016-01-28 01:03:20.000000000 +0100
@@ -15,6 +15,8 @@
File::HomeDir->my_home,
'.dataprinter'
);
+ # untaint - only necessary for old Win32
+ ($file) = $file =~ /^(.*)$/;
if (-e $file) {
plan skip_all => 'File .dataprinter should not be in test homedir';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.36/t/26.7-unicode.t new/Data-Printer-0.38/t/26.7-unicode.t
--- old/Data-Printer-0.36/t/26.7-unicode.t 1970-01-01 01:00:00.000000000 +0100
+++ new/Data-Printer-0.38/t/26.7-unicode.t 2016-01-28 01:03:20.000000000 +0100
@@ -0,0 +1,34 @@
+use strict;
+use warnings;
+use Test::More;
+
+BEGIN {
+ delete $ENV{ANSI_COLORS_DISABLED};
+ delete $ENV{DATAPRINTERRC};
+ use File::HomeDir::Test; # avoid user's .dataprinter
+ use_ok ('Term::ANSIColor');
+ use_ok (
+ 'Data::Printer',
+ colored => 1,
+ return_value => 'dump',
+ show_unicode => 1,
+ );
+};
+
+my $uni_str= "\x{2603}";
+my $ascii_str= "\x{ff}";
+
+is(
+ p($uni_str),
+ color('reset') . q["] . colored($uni_str, 'bright_yellow') . q["]
+ . ' ' . colored('(U)', 'bright_yellow'),
+ 'unicode scalar gets suffix'
+);
+
+is(
+ p($ascii_str),
+ color('reset') . q["] . colored($ascii_str, 'bright_yellow') . q["],
+ 'ascii scalar without suffix'
+);
+
+done_testing;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.36/t/27-pass_through.t new/Data-Printer-0.38/t/27-pass_through.t
--- old/Data-Printer-0.36/t/27-pass_through.t 2014-08-12 05:36:06.000000000 +0200
+++ new/Data-Printer-0.38/t/27-pass_through.t 2015-05-30 01:16:07.000000000 +0200
@@ -4,6 +4,7 @@
use Test::More;
BEGIN {
$ENV{ANSI_COLORS_DISABLED} = 1;
+ delete $ENV{DATAPRINTERRC};
use File::HomeDir::Test; # avoid user's .dataprinter
};
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.36/t/33-end_separator.t new/Data-Printer-0.38/t/33-end_separator.t
--- old/Data-Printer-0.36/t/33-end_separator.t 2014-12-22 10:03:52.000000000 +0100
+++ new/Data-Printer-0.38/t/33-end_separator.t 2015-05-30 00:50:51.000000000 +0200
@@ -35,4 +35,3 @@
$end_comma_output,
"Got correct structure with end_separator => 1 and separator => '--'",
);
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.36/t/36-valign.t new/Data-Printer-0.38/t/36-valign.t
--- old/Data-Printer-0.36/t/36-valign.t 2014-12-22 10:05:42.000000000 +0100
+++ new/Data-Printer-0.38/t/36-valign.t 2015-05-30 00:50:51.000000000 +0200
@@ -22,5 +22,3 @@
}},
'colored alignment'
);
-
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.36/t/41-yaml.t new/Data-Printer-0.38/t/41-yaml.t
--- old/Data-Printer-0.36/t/41-yaml.t 2014-12-22 10:08:02.000000000 +0100
+++ new/Data-Printer-0.38/t/41-yaml.t 2015-05-30 00:50:51.000000000 +0200
@@ -40,4 +40,3 @@
]
}',
'testing odd objects (YAML::Syck)';
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.36/t/45-np.t new/Data-Printer-0.38/t/45-np.t
--- old/Data-Printer-0.36/t/45-np.t 2014-12-22 10:38:10.000000000 +0100
+++ new/Data-Printer-0.38/t/45-np.t 2015-05-30 01:13:43.000000000 +0200
@@ -16,5 +16,3 @@
is( np($scalar, return_value => 'void'), '"test"', 'np() always returns strings' );
-
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.36/xt/whitespaces.t new/Data-Printer-0.38/xt/whitespaces.t
--- old/Data-Printer-0.36/xt/whitespaces.t 1970-01-01 01:00:00.000000000 +0100
+++ new/Data-Printer-0.38/xt/whitespaces.t 2015-05-30 01:07:02.000000000 +0200
@@ -0,0 +1,14 @@
+use strict;
+use warnings;
+
+use Test::Whitespaces {
+
+ dirs => [
+ qw(
+ examples
+ lib
+ t
+ )
+ ],
+
+};