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 - [email protected] + +- 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 <[email protected]>" ], "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 L<Data::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 L<Data::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 L<Data::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 +L<DBIx::Class::Schema>, L<DBIx::Class::ResultSet> or +L<DBIx::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 -L<Data::Printer> - - +L<Data::Printer>, L<Data::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 L<Data::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 L<Data::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 + ) + ], + +};
