1 This patch is an update of Data-Dumper to version 2.154 that comes from:

     2 http://search.cpan.org/~smueller/Data-Dumper-2.154/Dumper.pm

     3 

     4 diff -ur --new-file perl-5.20.1/dist/Data-Dumper/Changes perl-5.20.1/dist/Data-Dumper-2.154/Changes

     5 --- perl-5.20.1/dist/Data-Dumper/Changes	2014-05-14 19:51:24.000000000 -0400

     6 +++ perl-5.20.1/dist/Data-Dumper-2.154/Changes	2014-09-18 11:44:33.000000000 -0400

     7 @@ -6,6 +6,22 @@

     8  

     9  =over 8

    10  

    11 +=item 2.154 (Sep 18 2014)

    12 +

    13 +Most notably, this release fixes CVE-2014-4330:

    14 +

    15 +  Don't recurse infinitely in Data::Dumper

    16 +

    17 +  Add a configuration variable/option to limit recursion when dumping

    18 +  deep data structures.

    19 +  [...]

    20 +  This patch addresses CVE-2014-4330.  This bug was found and

    21 +  reported by: LSE Leading Security Experts GmbH employee Markus

    22 +  Vervier.

    23 +

    24 +On top of that, there are several minor big fixes and improvements,

    25 +see "git log" if the core perl distribution for details.

    26 +

    27  =item 2.151 (Mar 7 2014)

    28  

    29  A "useqq" implementation for the XS version of Data::Dumper.

    30 diff -ur --new-file perl-5.20.1/dist/Data-Dumper/Dumper.pm perl-5.20.1/dist/Data-Dumper-2.154/Dumper.pm

    31 --- perl-5.20.1/dist/Data-Dumper/Dumper.pm	2014-09-14 07:31:01.000000000 -0400

    32 +++ perl-5.20.1/dist/Data-Dumper-2.154/Dumper.pm	2014-09-18 11:46:04.000000000 -0400

    33 @@ -10,7 +10,7 @@

    34  package Data::Dumper;

    35  

    36  BEGIN {

    37 -    $VERSION = '2.151'; # Don't forget to set version and release

    38 +    $VERSION = '2.154'; # Don't forget to set version and release

    39  }               # date in POD below!

    40  

    41  #$| = 1;

    42 @@ -56,6 +56,7 @@

    43  $Sortkeys   = 0         unless defined $Sortkeys;

    44  $Deparse    = 0         unless defined $Deparse;

    45  $Sparseseen = 0         unless defined $Sparseseen;

    46 +$Maxrecurse = 1000      unless defined $Maxrecurse;

    47  

    48  #

    49  # expects an arrayref of values to be dumped.

    50 @@ -92,6 +93,7 @@

    51          'bless'    => $Bless,    # keyword to use for "bless"

    52  #        expdepth   => $Expdepth,   # cutoff depth for explicit dumping

    53          maxdepth   => $Maxdepth,   # depth beyond which we give up

    54 +	maxrecurse => $Maxrecurse, # depth beyond which we abort

    55          useperl    => $Useperl,    # use the pure Perl implementation

    56          sortkeys   => $Sortkeys,   # flag or filter for sorting hash keys

    57          deparse    => $Deparse,    # use B::Deparse for coderefs

    58 @@ -350,6 +352,12 @@

    59        return qq['$val'];

    60      }

    61  

    62 +    # avoid recursing infinitely [perl #122111]

    63 +    if ($s->{maxrecurse} > 0

    64 +        and $s->{level} >= $s->{maxrecurse}) {

    65 +        die "Recursion limit of $s->{maxrecurse} exceeded";

    66 +    }

    67 +

    68      # we have a blessed ref

    69      my ($blesspad);

    70      if ($realpack and !$no_bless) {

    71 @@ -680,6 +688,11 @@

    72    defined($v) ? (($s->{'maxdepth'} = $v), return $s) : $s->{'maxdepth'};

    73  }

    74  

    75 +sub Maxrecurse {

    76 +  my($s, $v) = @_;

    77 +  defined($v) ? (($s->{'maxrecurse'} = $v), return $s) : $s->{'maxrecurse'};

    78 +}

    79 +

    80  sub Useperl {

    81    my($s, $v) = @_;

    82    defined($v) ? (($s->{'useperl'} = $v), return $s) : $s->{'useperl'};

    83 @@ -1105,6 +1118,16 @@

    84  

    85  =item *

    86  

    87 +$Data::Dumper::Maxrecurse  I<or>  $I<OBJ>->Maxrecurse(I<[NEWVAL]>)

    88 +

    89 +Can be set to a positive integer that specifies the depth beyond which

    90 +recursion into a structure will throw an exception.  This is intended

    91 +as a security measure to prevent perl running out of stack space when

    92 +dumping an excessively deep structure.  Can be set to 0 to remove the

    93 +limit.  Default is 1000.

    94 +

    95 +=item *

    96 +

    97  $Data::Dumper::Useperl  I<or>  $I<OBJ>->Useperl(I<[NEWVAL]>)

    98  

    99  Can be set to a boolean value which controls whether the pure Perl

   100 @@ -1398,7 +1421,7 @@

   101  

   102  =head1 VERSION

   103  

   104 -Version 2.151  (March 7 2014)

   105 +Version 2.154  (September 18 2014)

   106  

   107  =head1 SEE ALSO

   108  

   109 diff -ur --new-file perl-5.20.1/dist/Data-Dumper/Dumper.xs perl-5.20.1/dist/Data-Dumper-2.154/Dumper.xs

   110 --- perl-5.20.1/dist/Data-Dumper/Dumper.xs	2014-09-14 07:31:01.000000000 -0400

   111 +++ perl-5.20.1/dist/Data-Dumper-2.154/Dumper.xs	2014-09-18 11:41:02.000000000 -0400

   112 @@ -28,7 +28,7 @@

   113  		    SV *pad, SV *xpad, SV *apad, SV *sep, SV *pair,

   114  		    SV *freezer, SV *toaster,

   115  		    I32 purity, I32 deepcopy, I32 quotekeys, SV *bless,

   116 -		    I32 maxdepth, SV *sortkeys, int use_sparse_seen_hash, I32 useqq);

   117 +		    I32 maxdepth, SV *sortkeys, int use_sparse_seen_hash, I32 useqq, IV maxrecurse);

   118  

   119  #ifndef HvNAME_get

   120  #define HvNAME_get HvNAME

   121 @@ -207,6 +207,7 @@

   122  	case '\\':

   123  	    *d = '\\';

   124  	    ++d; ++ret;

   125 +            /* FALLTHROUGH */

   126  	default:

   127  	    *d = *s;

   128  	    ++d; ++s; --slen;

   129 @@ -378,7 +379,7 @@

   130  sv_x(pTHX_ SV *sv, const char *str, STRLEN len, I32 n)

   131  {

   132      if (!sv)

   133 -	sv = newSVpvn("", 0);

   134 +	sv = newSVpvs("");

   135  #ifdef DEBUGGING

   136      else

   137  	assert(SvTYPE(sv) >= SVt_PV);

   138 @@ -412,7 +413,7 @@

   139  	AV *postav, I32 *levelp, I32 indent, SV *pad, SV *xpad,

   140  	SV *apad, SV *sep, SV *pair, SV *freezer, SV *toaster, I32 purity,

   141  	I32 deepcopy, I32 quotekeys, SV *bless, I32 maxdepth, SV *sortkeys,

   142 -        int use_sparse_seen_hash, I32 useqq)

   143 +        int use_sparse_seen_hash, I32 useqq, IV maxrecurse)

   144  {

   145      char tmpbuf[128];

   146      Size_t i;

   147 @@ -497,13 +498,13 @@

   148  			SV *postentry;

   149  			

   150  			if (realtype == SVt_PVHV)

   151 -			    sv_catpvn(retval, "{}", 2);

   152 +			    sv_catpvs(retval, "{}");

   153  			else if (realtype == SVt_PVAV)

   154 -			    sv_catpvn(retval, "[]", 2);

   155 +			    sv_catpvs(retval, "[]");

   156  			else

   157 -			    sv_catpvn(retval, "do{my $o}", 9);

   158 +			    sv_catpvs(retval, "do{my $o}");

   159  			postentry = newSVpvn(name, namelen);

   160 -			sv_catpvn(postentry, " = ", 3);

   161 +			sv_catpvs(postentry, " = ");

   162  			sv_catsv(postentry, othername);

   163  			av_push(postav, postentry);

   164  		    }

   165 @@ -516,9 +517,9 @@

   166  			    }

   167  			    else {

   168  				sv_catpvn(retval, name, 1);

   169 -				sv_catpvn(retval, "{", 1);

   170 +				sv_catpvs(retval, "{");

   171  				sv_catsv(retval, othername);

   172 -				sv_catpvn(retval, "}", 1);

   173 +				sv_catpvs(retval, "}");

   174  			    }

   175  			}

   176  			else

   177 @@ -538,11 +539,11 @@

   178  	    else {   /* store our name and continue */

   179  		SV *namesv;

   180  		if (name[0] == '@' || name[0] == '%') {

   181 -		    namesv = newSVpvn("\\", 1);

   182 +		    namesv = newSVpvs("\\");

   183  		    sv_catpvn(namesv, name, namelen);

   184  		}

   185  		else if (realtype == SVt_PVCV && name[0] == '*') {

   186 -		    namesv = newSVpvn("\\", 2);

   187 +		    namesv = newSVpvs("\\");

   188  		    sv_catpvn(namesv, name, namelen);

   189  		    (SvPVX(namesv))[1] = '&';

   190  		}

   191 @@ -583,17 +584,21 @@

   192  	if (!purity && maxdepth > 0 && *levelp >= maxdepth) {

   193  	    STRLEN vallen;

   194  	    const char * const valstr = SvPV(val,vallen);

   195 -	    sv_catpvn(retval, "'", 1);

   196 +	    sv_catpvs(retval, "'");

   197  	    sv_catpvn(retval, valstr, vallen);

   198 -	    sv_catpvn(retval, "'", 1);

   199 +	    sv_catpvs(retval, "'");

   200  	    return 1;

   201  	}

   202  

   203 +	if (maxrecurse > 0 && *levelp >= maxrecurse) {

   204 +	    croak("Recursion limit of %" IVdf " exceeded", maxrecurse);

   205 +	}

   206 +

   207  	if (realpack && !no_bless) {				/* we have a blessed ref */

   208  	    STRLEN blesslen;

   209  	    const char * const blessstr = SvPV(bless, blesslen);

   210  	    sv_catpvn(retval, blessstr, blesslen);

   211 -	    sv_catpvn(retval, "( ", 2);

   212 +	    sv_catpvs(retval, "( ");

   213  	    if (indent >= 2) {

   214  		blesspad = apad;

   215  		apad = newSVsv(apad);

   216 @@ -641,21 +646,22 @@

   217  	    else {

   218  	      sv_pattern = val;

   219  	    }

   220 +	    assert(sv_pattern);

   221  	    rval = SvPV(sv_pattern, rlen);

   222  	    rend = rval+rlen;

   223  	    slash = rval;

   224 -	    sv_catpvn(retval, "qr/", 3);

   225 +	    sv_catpvs(retval, "qr/");

   226  	    for (;slash < rend; slash++) {

   227  	      if (*slash == '\\') { ++slash; continue; }

   228  	      if (*slash == '/') {    

   229  		sv_catpvn(retval, rval, slash-rval);

   230 -		sv_catpvn(retval, "\\/", 2);

   231 +		sv_catpvs(retval, "\\/");

   232  		rlen -= slash-rval+1;

   233  		rval = slash+1;

   234  	      }

   235  	    }

   236  	    sv_catpvn(retval, rval, rlen);

   237 -	    sv_catpvn(retval, "/", 1);

   238 +	    sv_catpvs(retval, "/");

   239  	    if (sv_flags)

   240  	      sv_catsv(retval, sv_flags);

   241  	} 

   242 @@ -666,35 +672,38 @@

   243  		realtype <= SVt_PVMG

   244  #endif

   245  	) {			     /* scalar ref */

   246 -	    SV * const namesv = newSVpvn("${", 2);

   247 +	    SV * const namesv = newSVpvs("${");

   248  	    sv_catpvn(namesv, name, namelen);

   249 -	    sv_catpvn(namesv, "}", 1);

   250 +	    sv_catpvs(namesv, "}");

   251  	    if (realpack) {				     /* blessed */

   252 -		sv_catpvn(retval, "do{\\(my $o = ", 13);

   253 +		sv_catpvs(retval, "do{\\(my $o = ");

   254  		DD_dump(aTHX_ ival, SvPVX_const(namesv), SvCUR(namesv), retval, seenhv,

   255  			postav, levelp,	indent, pad, xpad, apad, sep, pair,

   256  			freezer, toaster, purity, deepcopy, quotekeys, bless,

   257 -			maxdepth, sortkeys, use_sparse_seen_hash, useqq);

   258 -		sv_catpvn(retval, ")}", 2);

   259 +			maxdepth, sortkeys, use_sparse_seen_hash, useqq,

   260 +			maxrecurse);

   261 +		sv_catpvs(retval, ")}");

   262  	    }						     /* plain */

   263  	    else {

   264 -		sv_catpvn(retval, "\\", 1);

   265 +		sv_catpvs(retval, "\\");

   266  		DD_dump(aTHX_ ival, SvPVX_const(namesv), SvCUR(namesv), retval, seenhv,

   267  			postav, levelp,	indent, pad, xpad, apad, sep, pair,

   268  			freezer, toaster, purity, deepcopy, quotekeys, bless,

   269 -			maxdepth, sortkeys, use_sparse_seen_hash, useqq);

   270 +			maxdepth, sortkeys, use_sparse_seen_hash, useqq,

   271 +			maxrecurse);

   272  	    }

   273  	    SvREFCNT_dec(namesv);

   274  	}

   275  	else if (realtype == SVt_PVGV) {		     /* glob ref */

   276 -	    SV * const namesv = newSVpvn("*{", 2);

   277 +	    SV * const namesv = newSVpvs("*{");

   278  	    sv_catpvn(namesv, name, namelen);

   279 -	    sv_catpvn(namesv, "}", 1);

   280 -	    sv_catpvn(retval, "\\", 1);

   281 +	    sv_catpvs(namesv, "}");

   282 +	    sv_catpvs(retval, "\\");

   283  	    DD_dump(aTHX_ ival, SvPVX_const(namesv), SvCUR(namesv), retval, seenhv,

   284  		    postav, levelp,	indent, pad, xpad, apad, sep, pair,

   285  		    freezer, toaster, purity, deepcopy, quotekeys, bless,

   286 -		    maxdepth, sortkeys, use_sparse_seen_hash, useqq);

   287 +		    maxdepth, sortkeys, use_sparse_seen_hash, useqq,

   288 +		    maxrecurse);

   289  	    SvREFCNT_dec(namesv);

   290  	}

   291  	else if (realtype == SVt_PVAV) {

   292 @@ -708,11 +717,11 @@

   293  	    (void)strcpy(iname, name);

   294  	    inamelen = namelen;

   295  	    if (name[0] == '@') {

   296 -		sv_catpvn(retval, "(", 1);

   297 +		sv_catpvs(retval, "(");

   298  		iname[0] = '$';

   299  	    }

   300  	    else {

   301 -		sv_catpvn(retval, "[", 1);

   302 +		sv_catpvs(retval, "[");

   303  		/* omit "->" in $foo{bar}->[0], but not in ${$foo}->[0] */

   304  		/*if (namelen > 0

   305  		    && name[namelen-1] != ']' && name[namelen-1] != '}'

   306 @@ -759,7 +768,7 @@

   307  		if (indent >= 3) {

   308  		    sv_catsv(retval, totpad);

   309  		    sv_catsv(retval, ipad);

   310 -		    sv_catpvn(retval, "#", 1);

   311 +		    sv_catpvs(retval, "#");

   312  		    sv_catsv(retval, ixsv);

   313  		}

   314  		sv_catsv(retval, totpad);

   315 @@ -767,9 +776,10 @@

   316  		DD_dump(aTHX_ elem, iname, ilen, retval, seenhv, postav,

   317  			levelp,	indent, pad, xpad, apad, sep, pair,

   318  			freezer, toaster, purity, deepcopy, quotekeys, bless,

   319 -			maxdepth, sortkeys, use_sparse_seen_hash, useqq);

   320 +			maxdepth, sortkeys, use_sparse_seen_hash,

   321 +			useqq, maxrecurse);

   322  		if (ix < ixmax)

   323 -		    sv_catpvn(retval, ",", 1);

   324 +		    sv_catpvs(retval, ",");

   325  	    }

   326  	    if (ixmax >= 0) {

   327  		SV * const opad = sv_x(aTHX_ Nullsv, SvPVX_const(xpad), SvCUR(xpad), (*levelp)-1);

   328 @@ -778,9 +788,9 @@

   329  		SvREFCNT_dec(opad);

   330  	    }

   331  	    if (name[0] == '@')

   332 -		sv_catpvn(retval, ")", 1);

   333 +		sv_catpvs(retval, ")");

   334  	    else

   335 -		sv_catpvn(retval, "]", 1);

   336 +		sv_catpvs(retval, "]");

   337  	    SvREFCNT_dec(ixsv);

   338  	    SvREFCNT_dec(totpad);

   339  	    Safefree(iname);

   340 @@ -796,11 +806,11 @@

   341  	

   342  	    SV * const iname = newSVpvn(name, namelen);

   343  	    if (name[0] == '%') {

   344 -		sv_catpvn(retval, "(", 1);

   345 +		sv_catpvs(retval, "(");

   346  		(SvPVX(iname))[0] = '$';

   347  	    }

   348  	    else {

   349 -		sv_catpvn(retval, "{", 1);

   350 +		sv_catpvs(retval, "{");

   351  		/* omit "->" in $foo[0]->{bar}, but not in ${$foo}->{bar} */

   352  		if ((namelen > 0

   353  		     && name[namelen-1] != ']' && name[namelen-1] != '}')

   354 @@ -808,16 +818,16 @@

   355  		        && (name[1] == '{'

   356  			    || (name[0] == '\\' && name[2] == '{'))))

   357  		{

   358 -		    sv_catpvn(iname, "->", 2);

   359 +		    sv_catpvs(iname, "->");

   360  		}

   361  	    }

   362  	    if (name[0] == '*' && name[namelen-1] == '}' && namelen >= 8 &&

   363  		(instr(name+namelen-8, "{SCALAR}") ||

   364  		 instr(name+namelen-7, "{ARRAY}") ||

   365  		 instr(name+namelen-6, "{HASH}"))) {

   366 -		sv_catpvn(iname, "->", 2);

   367 +		sv_catpvs(iname, "->");

   368  	    }

   369 -	    sv_catpvn(iname, "{", 1);

   370 +	    sv_catpvs(iname, "{");

   371  	    totpad = newSVsv(sep);

   372  	    sv_catsv(totpad, pad);

   373  	    sv_catsv(totpad, apad);

   374 @@ -826,7 +836,7 @@

   375  	    if (sortkeys) {

   376  		if (sortkeys == &PL_sv_yes) {

   377  #if PERL_VERSION < 8

   378 -                    sortkeys = sv_2mortal(newSVpvn("Data::Dumper::_sortkeys", 23));

   379 +                    sortkeys = sv_2mortal(newSVpvs("Data::Dumper::_sortkeys"));

   380  #else

   381  		    keys = newAV();

   382  		    (void)hv_iterinit((HV*)ival);

   383 @@ -835,16 +845,25 @@

   384  			(void)SvREFCNT_inc(sv);

   385  			av_push(keys, sv);

   386  		    }

   387 -# ifdef USE_LOCALE_NUMERIC

   388 -		    sortsv(AvARRAY(keys), 

   389 -			   av_len(keys)+1, 

   390 -			   IN_LOCALE ? Perl_sv_cmp_locale : Perl_sv_cmp);

   391 -# else

   392 -		    sortsv(AvARRAY(keys), 

   393 -			   av_len(keys)+1, 

   394 -			   Perl_sv_cmp);

   395 +# ifdef USE_LOCALE_COLLATE

   396 +#       ifdef IN_LC     /* Use this if available */

   397 +                    if (IN_LC(LC_COLLATE))

   398 +#       else

   399 +                    if (IN_LOCALE)

   400 +#       endif

   401 +                    {

   402 +                        sortsv(AvARRAY(keys),

   403 +			   av_len(keys)+1,

   404 +                           Perl_sv_cmp_locale);

   405 +                    }

   406 +                    else

   407  # endif

   408  #endif

   409 +                    {

   410 +                        sortsv(AvARRAY(keys),

   411 +			   av_len(keys)+1,

   412 +                           Perl_sv_cmp);

   413 +                    }

   414  		}

   415  		if (sortkeys != &PL_sv_yes) {

   416  		    dSP; ENTER; SAVETMPS; PUSHMARK(sp);

   417 @@ -883,7 +902,7 @@

   418                 }

   419  

   420  		if (i)

   421 -		    sv_catpvn(retval, ",", 1);

   422 +		    sv_catpvs(retval, ",");

   423  

   424  		if (sortkeys) {

   425  		    char *key;

   426 @@ -950,7 +969,7 @@

   427  		}

   428                  sname = newSVsv(iname);

   429                  sv_catpvn(sname, nkey, nlen);

   430 -                sv_catpvn(sname, "}", 1);

   431 +                sv_catpvs(sname, "}");

   432  

   433  		sv_catsv(retval, pair);

   434  		if (indent >= 2) {

   435 @@ -970,7 +989,8 @@

   436  		DD_dump(aTHX_ hval, SvPVX_const(sname), SvCUR(sname), retval, seenhv,

   437  			postav, levelp,	indent, pad, xpad, newapad, sep, pair,

   438  			freezer, toaster, purity, deepcopy, quotekeys, bless,

   439 -			maxdepth, sortkeys, use_sparse_seen_hash, useqq);

   440 +			maxdepth, sortkeys, use_sparse_seen_hash, useqq,

   441 +			maxrecurse);

   442  		SvREFCNT_dec(sname);

   443  		Safefree(nkey_buffer);

   444  		if (indent >= 2)

   445 @@ -983,14 +1003,14 @@

   446  		SvREFCNT_dec(opad);

   447  	    }

   448  	    if (name[0] == '%')

   449 -		sv_catpvn(retval, ")", 1);

   450 +		sv_catpvs(retval, ")");

   451  	    else

   452 -		sv_catpvn(retval, "}", 1);

   453 +		sv_catpvs(retval, "}");

   454  	    SvREFCNT_dec(iname);

   455  	    SvREFCNT_dec(totpad);

   456  	}

   457  	else if (realtype == SVt_PVCV) {

   458 -	    sv_catpvn(retval, "sub { \"DUMMY\" }", 15);

   459 +	    sv_catpvs(retval, "sub { \"DUMMY\" }");

   460  	    if (purity)

   461  		warn("Encountered CODE ref, using dummy placeholder");

   462  	}

   463 @@ -1006,7 +1026,7 @@

   464  		SvREFCNT_dec(apad);

   465  		apad = blesspad;

   466  	    }

   467 -	    sv_catpvn(retval, ", '", 3);

   468 +	    sv_catpvs(retval, ", '");

   469  

   470  	    plen = strlen(realpack);

   471  	    pticks = num_q(realpack, plen);

   472 @@ -1025,11 +1045,11 @@

   473  	    else {

   474  	        sv_catpvn(retval, realpack, strlen(realpack));

   475  	    }

   476 -	    sv_catpvn(retval, "' )", 3);

   477 +	    sv_catpvs(retval, "' )");

   478  	    if (toaster && SvPOK(toaster) && SvCUR(toaster)) {

   479 -		sv_catpvn(retval, "->", 2);

   480 +		sv_catpvs(retval, "->");

   481  		sv_catsv(retval, toaster);

   482 -		sv_catpvn(retval, "()", 2);

   483 +		sv_catpvs(retval, "()");

   484  	    }

   485  	}

   486  	SvREFCNT_dec(ipad);

   487 @@ -1054,9 +1074,9 @@

   488  		if ((svp = av_fetch(seenentry, 0, FALSE)) && (othername = *svp)

   489  		    && (svp = av_fetch(seenentry, 2, FALSE)) && *svp && SvIV(*svp) > 0)

   490  		{

   491 -		    sv_catpvn(retval, "${", 2);

   492 +		    sv_catpvs(retval, "${");

   493  		    sv_catsv(retval, othername);

   494 -		    sv_catpvn(retval, "}", 1);

   495 +		    sv_catpvs(retval, "}");

   496  		    return 1;

   497  		}

   498  	    }

   499 @@ -1068,7 +1088,7 @@

   500               * Note that we'd have to check for weak-refs, too, but this is

   501               * already the branch for non-refs only. */

   502  	    else if (val != &PL_sv_undef && (!use_sparse_seen_hash || SvREFCNT(val) > 1)) {

   503 -		SV * const namesv = newSVpvn("\\", 1);

   504 +		SV * const namesv = newSVpvs("\\");

   505  		sv_catpvn(namesv, name, namelen);

   506  		seenentry = newAV();

   507  		av_push(seenentry, namesv);

   508 @@ -1149,8 +1169,8 @@

   509  		static const char* const entries[] = { "{SCALAR}", "{ARRAY}", "{HASH}" };

   510  		static const STRLEN sizes[] = { 8, 7, 6 };

   511  		SV *e;

   512 -		SV * const nname = newSVpvn("", 0);

   513 -		SV * const newapad = newSVpvn("", 0);

   514 +		SV * const nname = newSVpvs("");

   515 +		SV * const newapad = newSVpvs("");

   516  		GV * const gv = (GV*)val;

   517  		I32 j;

   518  		

   519 @@ -1167,7 +1187,7 @@

   520  			

   521  			sv_setsv(nname, postentry);

   522  			sv_catpvn(nname, entries[j], sizes[j]);

   523 -			sv_catpvn(postentry, " = ", 3);

   524 +			sv_catpvs(postentry, " = ");

   525  			av_push(postav, postentry);

   526  			e = newRV_inc(e);

   527  			

   528 @@ -1179,7 +1199,8 @@

   529  				seenhv, postav, &nlevel, indent, pad, xpad,

   530  				newapad, sep, pair, freezer, toaster, purity,

   531  				deepcopy, quotekeys, bless, maxdepth, 

   532 -				sortkeys, use_sparse_seen_hash, useqq);

   533 +				sortkeys, use_sparse_seen_hash, useqq,

   534 +				maxrecurse);

   535  			SvREFCNT_dec(e);

   536  		    }

   537  		}

   538 @@ -1189,7 +1210,7 @@

   539  	    }

   540  	}

   541  	else if (val == &PL_sv_undef || !SvOK(val)) {

   542 -	    sv_catpvn(retval, "undef", 5);

   543 +	    sv_catpvs(retval, "undef");

   544  	}

   545  #ifdef SvVOK

   546  	else if (SvMAGICAL(val) && (mg = mg_find(val, 'V'))) {

   547 @@ -1249,7 +1270,7 @@

   548  #

   549  # This is the exact equivalent of Dump.  Well, almost. The things that are

   550  # different as of now (due to Laziness):

   551 -#   * doesn't deparse yet.

   552 +#   * doesn't deparse yet.'

   553  #

   554  

   555  void

   556 @@ -1269,6 +1290,7 @@

   557  	    SV *val, *name, *pad, *xpad, *apad, *sep, *pair, *varname;

   558  	    SV *freezer, *toaster, *bless, *sortkeys;

   559  	    I32 purity, deepcopy, quotekeys, maxdepth = 0;

   560 +	    IV maxrecurse = 1000;

   561  	    char tmpbuf[1024];

   562  	    I32 gimme = GIMME;

   563              int use_sparse_seen_hash = 0;

   564 @@ -1308,7 +1330,7 @@

   565  	    terse = purity = deepcopy = useqq = 0;

   566  	    quotekeys = 1;

   567  	

   568 -	    retval = newSVpvn("", 0);

   569 +	    retval = newSVpvs("");

   570  	    if (SvROK(href)

   571  		&& (hv = (HV*)SvRV((SV*)href))

   572  		&& SvTYPE(hv) == SVt_PVHV)		{

   573 @@ -1355,6 +1377,8 @@

   574  		    bless = *svp;

   575  		if ((svp = hv_fetch(hv, "maxdepth", 8, FALSE)))

   576  		    maxdepth = SvIV(*svp);

   577 +		if ((svp = hv_fetch(hv, "maxrecurse", 10, FALSE)))

   578 +		    maxrecurse = SvIV(*svp);

   579  		if ((svp = hv_fetch(hv, "sortkeys", 8, FALSE))) {

   580  		    sortkeys = *svp;

   581  		    if (! SvTRUE(sortkeys))

   582 @@ -1372,7 +1396,7 @@

   583  		    imax = av_len(todumpav);

   584  		else

   585  		    imax = -1;

   586 -		valstr = newSVpvn("",0);

   587 +		valstr = newSVpvs("");

   588  		for (i = 0; i <= imax; ++i) {

   589  		    SV *newapad;

   590  		

   591 @@ -1434,7 +1458,8 @@

   592  		    DD_dump(aTHX_ val, SvPVX_const(name), SvCUR(name), valstr, seenhv,

   593  			    postav, &level, indent, pad, xpad, newapad, sep, pair,

   594  			    freezer, toaster, purity, deepcopy, quotekeys,

   595 -			    bless, maxdepth, sortkeys, use_sparse_seen_hash, useqq);

   596 +			    bless, maxdepth, sortkeys, use_sparse_seen_hash,

   597 +			    useqq, maxrecurse);

   598  		    SPAGAIN;

   599  		

   600  		    if (indent >= 2 && !terse)

   601 @@ -1444,7 +1469,7 @@

   602  		    if (postlen >= 0 || !terse) {

   603  			sv_insert(valstr, 0, 0, " = ", 3);

   604  			sv_insert(valstr, 0, 0, SvPVX_const(name), SvCUR(name));

   605 -			sv_catpvn(valstr, ";", 1);

   606 +			sv_catpvs(valstr, ";");

   607  		    }

   608  		    sv_catsv(retval, pad);

   609  		    sv_catsv(retval, valstr);

   610 @@ -1458,20 +1483,20 @@

   611  			    if (svp && (elem = *svp)) {

   612  				sv_catsv(retval, elem);

   613  				if (i < postlen) {

   614 -				    sv_catpvn(retval, ";", 1);

   615 +				    sv_catpvs(retval, ";");

   616  				    sv_catsv(retval, sep);

   617  				    sv_catsv(retval, pad);

   618  				}

   619  			    }

   620  			}

   621 -			sv_catpvn(retval, ";", 1);

   622 +			sv_catpvs(retval, ";");

   623  			    sv_catsv(retval, sep);

   624  		    }

   625  		    sv_setpvn(valstr, "", 0);

   626  		    if (gimme == G_ARRAY) {

   627  			XPUSHs(sv_2mortal(retval));

   628  			if (i < imax)	/* not the last time thro ? */

   629 -			    retval = newSVpvn("",0);

   630 +			    retval = newSVpvs("");

   631  		    }

   632  		}

   633  		SvREFCNT_dec(postav);

   634 diff -ur --new-file perl-5.20.1/dist/Data-Dumper/MANIFEST perl-5.20.1/dist/Data-Dumper-2.154/MANIFEST

   635 --- perl-5.20.1/dist/Data-Dumper/MANIFEST	1969-12-31 19:00:00.000000000 -0500

   636 +++ perl-5.20.1/dist/Data-Dumper-2.154/MANIFEST	2014-09-18 11:46:53.000000000 -0400

   637 @@ -0,0 +1,34 @@

   638 +Changes

   639 +Dumper.pm

   640 +Dumper.xs

   641 +Makefile.PL

   642 +MANIFEST			This list of files

   643 +MANIFEST.SKIP

   644 +ppport.h

   645 +t/bless.t

   646 +t/bless_var_method.t

   647 +t/bugs.t

   648 +t/deparse.t

   649 +t/dumper.t

   650 +t/dumpperl.t

   651 +t/freezer.t

   652 +t/freezer_useperl.t

   653 +t/indent.t

   654 +t/lib/Testing.pm

   655 +t/misc.t

   656 +t/names.t

   657 +t/overload.t

   658 +t/pair.t

   659 +t/perl-74170.t

   660 +t/purity_deepcopy_maxdepth.t

   661 +t/qr.t

   662 +t/quotekeys.t

   663 +t/recurse.t

   664 +t/seen.t

   665 +t/sortkeys.t

   666 +t/sparseseen.t

   667 +t/terse.t

   668 +t/toaster.t

   669 +t/values.t

   670 +Todo

   671 +META.yml                                 Module meta-data (added by MakeMaker)

   672 diff -ur --new-file perl-5.20.1/dist/Data-Dumper/MANIFEST.SKIP perl-5.20.1/dist/Data-Dumper-2.154/MANIFEST.SKIP

   673 --- perl-5.20.1/dist/Data-Dumper/MANIFEST.SKIP	1969-12-31 19:00:00.000000000 -0500

   674 +++ perl-5.20.1/dist/Data-Dumper-2.154/MANIFEST.SKIP	2013-03-15 05:45:23.000000000 -0400

   675 @@ -0,0 +1,33 @@

   676 +Dumper\.bs$

   677 +Dumper\.c$

   678 +\.o$

   679 +\.git/

   680 +\.gitignore$

   681 +\b(?:MY)?META\.(?:json|yml)$

   682 +

   683 +# Default section:

   684 +# Avoid version control files.

   685 +\bRCS\b

   686 +\bCVS\b

   687 +,v$

   688 +\B\.svn\b

   689 +

   690 +# Avoid Makemaker generated and utility files.

   691 +\bMakefile$

   692 +\bblib

   693 +\bMakeMaker-\d

   694 +\bpm_to_blib$

   695 +\bblibdirs$

   696 +

   697 +# Avoid Module::Build generated and utility files.

   698 +\bBuild$

   699 +\b_build

   700 +

   701 +# Avoid temp and backup files.

   702 +~$

   703 +\.tmp$

   704 +\.old$

   705 +\.bak$

   706 +\#$

   707 +\b\.#

   708 +\b\..*\.sw[op]$

   709 diff -ur --new-file perl-5.20.1/dist/Data-Dumper/ppport.h perl-5.20.1/dist/Data-Dumper-2.154/ppport.h

   710 --- perl-5.20.1/dist/Data-Dumper/ppport.h	1969-12-31 19:00:00.000000000 -0500

   711 +++ perl-5.20.1/dist/Data-Dumper-2.154/ppport.h	2014-03-07 02:48:03.000000000 -0500

   712 @@ -0,0 +1,7452 @@

   713 +#if 0

   714 +<<'SKIP';

   715 +#endif

   716 +/*

   717 +----------------------------------------------------------------------

   718 +

   719 +    ppport.h -- Perl/Pollution/Portability Version 3.21

   720 +

   721 +    Automatically created by Devel::PPPort running under perl 5.014002.

   722 +

   723 +    Do NOT edit this file directly! -- Edit PPPort_pm.PL and the

   724 +    includes in parts/inc/ instead.

   725 +

   726 +    Use 'perldoc ppport.h' to view the documentation below.

   727 +

   728 +----------------------------------------------------------------------

   729 +

   730 +SKIP

   731 +

   732 +=pod

   733 +

   734 +=head1 NAME

   735 +

   736 +ppport.h - Perl/Pollution/Portability version 3.21

   737 +

   738 +=head1 SYNOPSIS

   739 +

   740 +  perl ppport.h [options] [source files]

   741 +

   742 +  Searches current directory for files if no [source files] are given

   743 +

   744 +  --help                      show short help

   745 +

   746 +  --version                   show version

   747 +

   748 +  --patch=file                write one patch file with changes

   749 +  --copy=suffix               write changed copies with suffix

   750 +  --diff=program              use diff program and options

   751 +

   752 +  --compat-version=version    provide compatibility with Perl version

   753 +  --cplusplus                 accept C++ comments

   754 +

   755 +  --quiet                     don't output anything except fatal errors

   756 +  --nodiag                    don't show diagnostics

   757 +  --nohints                   don't show hints

   758 +  --nochanges                 don't suggest changes

   759 +  --nofilter                  don't filter input files

   760 +

   761 +  --strip                     strip all script and doc functionality from

   762 +                              ppport.h

   763 +

   764 +  --list-provided             list provided API

   765 +  --list-unsupported          list unsupported API

   766 +  --api-info=name             show Perl API portability information

   767 +

   768 +=head1 COMPATIBILITY

   769 +

   770 +This version of F<ppport.h> is designed to support operation with Perl

   771 +installations back to 5.003, and has been tested up to 5.11.5.

   772 +

   773 +=head1 OPTIONS

   774 +

   775 +=head2 --help

   776 +

   777 +Display a brief usage summary.

   778 +

   779 +=head2 --version

   780 +

   781 +Display the version of F<ppport.h>.

   782 +

   783 +=head2 --patch=I<file>

   784 +

   785 +If this option is given, a single patch file will be created if

   786 +any changes are suggested. This requires a working diff program

   787 +to be installed on your system.

   788 +

   789 +=head2 --copy=I<suffix>

   790 +

   791 +If this option is given, a copy of each file will be saved with

   792 +the given suffix that contains the suggested changes. This does

   793 +not require any external programs. Note that this does not

   794 +automagially add a dot between the original filename and the

   795 +suffix. If you want the dot, you have to include it in the option

   796 +argument.

   797 +

   798 +If neither C<--patch> or C<--copy> are given, the default is to

   799 +simply print the diffs for each file. This requires either

   800 +C<Text::Diff> or a C<diff> program to be installed.

   801 +

   802 +=head2 --diff=I<program>

   803 +

   804 +Manually set the diff program and options to use. The default

   805 +is to use C<Text::Diff>, when installed, and output unified

   806 +context diffs.

   807 +

   808 +=head2 --compat-version=I<version>

   809 +

   810 +Tell F<ppport.h> to check for compatibility with the given

   811 +Perl version. The default is to check for compatibility with Perl

   812 +version 5.003. You can use this option to reduce the output

   813 +of F<ppport.h> if you intend to be backward compatible only

   814 +down to a certain Perl version.

   815 +

   816 +=head2 --cplusplus

   817 +

   818 +Usually, F<ppport.h> will detect C++ style comments and

   819 +replace them with C style comments for portability reasons.

   820 +Using this option instructs F<ppport.h> to leave C++

   821 +comments untouched.

   822 +

   823 +=head2 --quiet

   824 +

   825 +Be quiet. Don't print anything except fatal errors.

   826 +

   827 +=head2 --nodiag

   828 +

   829 +Don't output any diagnostic messages. Only portability

   830 +alerts will be printed.

   831 +

   832 +=head2 --nohints

   833 +

   834 +Don't output any hints. Hints often contain useful portability

   835 +notes. Warnings will still be displayed.

   836 +

   837 +=head2 --nochanges

   838 +

   839 +Don't suggest any changes. Only give diagnostic output and hints

   840 +unless these are also deactivated.

   841 +

   842 +=head2 --nofilter

   843 +

   844 +Don't filter the list of input files. By default, files not looking

   845 +like source code (i.e. not *.xs, *.c, *.cc, *.cpp or *.h) are skipped.

   846 +

   847 +=head2 --strip

   848 +

   849 +Strip all script and documentation functionality from F<ppport.h>.

   850 +This reduces the size of F<ppport.h> dramatically and may be useful

   851 +if you want to include F<ppport.h> in smaller modules without

   852 +increasing their distribution size too much.

   853 +

   854 +The stripped F<ppport.h> will have a C<--unstrip> option that allows

   855 +you to undo the stripping, but only if an appropriate C<Devel::PPPort>

   856 +module is installed.

   857 +

   858 +=head2 --list-provided

   859 +

   860 +Lists the API elements for which compatibility is provided by

   861 +F<ppport.h>. Also lists if it must be explicitly requested,

   862 +if it has dependencies, and if there are hints or warnings for it.

   863 +

   864 +=head2 --list-unsupported

   865 +

   866 +Lists the API elements that are known not to be supported by

   867 +F<ppport.h> and below which version of Perl they probably

   868 +won't be available or work.

   869 +

   870 +=head2 --api-info=I<name>

   871 +

   872 +Show portability information for API elements matching I<name>.

   873 +If I<name> is surrounded by slashes, it is interpreted as a regular

   874 +expression.

   875 +

   876 +=head1 DESCRIPTION

   877 +

   878 +In order for a Perl extension (XS) module to be as portable as possible

   879 +across differing versions of Perl itself, certain steps need to be taken.

   880 +

   881 +=over 4

   882 +

   883 +=item *

   884 +

   885 +Including this header is the first major one. This alone will give you

   886 +access to a large part of the Perl API that hasn't been available in

   887 +earlier Perl releases. Use

   888 +

   889 +    perl ppport.h --list-provided

   890 +

   891 +to see which API elements are provided by ppport.h.

   892 +

   893 +=item *

   894 +

   895 +You should avoid using deprecated parts of the API. For example, using

   896 +global Perl variables without the C<PL_> prefix is deprecated. Also,

   897 +some API functions used to have a C<perl_> prefix. Using this form is

   898 +also deprecated. You can safely use the supported API, as F<ppport.h>

   899 +will provide wrappers for older Perl versions.

   900 +

   901 +=item *

   902 +

   903 +If you use one of a few functions or variables that were not present in

   904 +earlier versions of Perl, and that can't be provided using a macro, you

   905 +have to explicitly request support for these functions by adding one or

   906 +more C<#define>s in your source code before the inclusion of F<ppport.h>.

   907 +

   908 +These functions or variables will be marked C<explicit> in the list shown

   909 +by C<--list-provided>.

   910 +

   911 +Depending on whether you module has a single or multiple files that

   912 +use such functions or variables, you want either C<static> or global

   913 +variants.

   914 +

   915 +For a C<static> function or variable (used only in a single source

   916 +file), use:

   917 +

   918 +    #define NEED_function

   919 +    #define NEED_variable

   920 +

   921 +For a global function or variable (used in multiple source files),

   922 +use:

   923 +

   924 +    #define NEED_function_GLOBAL

   925 +    #define NEED_variable_GLOBAL

   926 +

   927 +Note that you mustn't have more than one global request for the

   928 +same function or variable in your project.

   929 +

   930 +    Function / Variable       Static Request               Global Request

   931 +    -----------------------------------------------------------------------------------------

   932 +    PL_parser                 NEED_PL_parser               NEED_PL_parser_GLOBAL

   933 +    PL_signals                NEED_PL_signals              NEED_PL_signals_GLOBAL

   934 +    eval_pv()                 NEED_eval_pv                 NEED_eval_pv_GLOBAL

   935 +    grok_bin()                NEED_grok_bin                NEED_grok_bin_GLOBAL

   936 +    grok_hex()                NEED_grok_hex                NEED_grok_hex_GLOBAL

   937 +    grok_number()             NEED_grok_number             NEED_grok_number_GLOBAL

   938 +    grok_numeric_radix()      NEED_grok_numeric_radix      NEED_grok_numeric_radix_GLOBAL

   939 +    grok_oct()                NEED_grok_oct                NEED_grok_oct_GLOBAL

   940 +    load_module()             NEED_load_module             NEED_load_module_GLOBAL

   941 +    my_snprintf()             NEED_my_snprintf             NEED_my_snprintf_GLOBAL

   942 +    my_sprintf()              NEED_my_sprintf              NEED_my_sprintf_GLOBAL

   943 +    my_strlcat()              NEED_my_strlcat              NEED_my_strlcat_GLOBAL

   944 +    my_strlcpy()              NEED_my_strlcpy              NEED_my_strlcpy_GLOBAL

   945 +    newCONSTSUB()             NEED_newCONSTSUB             NEED_newCONSTSUB_GLOBAL

   946 +    newRV_noinc()             NEED_newRV_noinc             NEED_newRV_noinc_GLOBAL

   947 +    newSV_type()              NEED_newSV_type              NEED_newSV_type_GLOBAL

   948 +    newSVpvn_flags()          NEED_newSVpvn_flags          NEED_newSVpvn_flags_GLOBAL

   949 +    newSVpvn_share()          NEED_newSVpvn_share          NEED_newSVpvn_share_GLOBAL

   950 +    pv_display()              NEED_pv_display              NEED_pv_display_GLOBAL

   951 +    pv_escape()               NEED_pv_escape               NEED_pv_escape_GLOBAL

   952 +    pv_pretty()               NEED_pv_pretty               NEED_pv_pretty_GLOBAL

   953 +    sv_2pv_flags()            NEED_sv_2pv_flags            NEED_sv_2pv_flags_GLOBAL

   954 +    sv_2pvbyte()              NEED_sv_2pvbyte              NEED_sv_2pvbyte_GLOBAL

   955 +    sv_catpvf_mg()            NEED_sv_catpvf_mg            NEED_sv_catpvf_mg_GLOBAL

   956 +    sv_catpvf_mg_nocontext()  NEED_sv_catpvf_mg_nocontext  NEED_sv_catpvf_mg_nocontext_GLOBAL

   957 +    sv_pvn_force_flags()      NEED_sv_pvn_force_flags      NEED_sv_pvn_force_flags_GLOBAL

   958 +    sv_setpvf_mg()            NEED_sv_setpvf_mg            NEED_sv_setpvf_mg_GLOBAL

   959 +    sv_setpvf_mg_nocontext()  NEED_sv_setpvf_mg_nocontext  NEED_sv_setpvf_mg_nocontext_GLOBAL

   960 +    vload_module()            NEED_vload_module            NEED_vload_module_GLOBAL

   961 +    vnewSVpvf()               NEED_vnewSVpvf               NEED_vnewSVpvf_GLOBAL

   962 +    warner()                  NEED_warner                  NEED_warner_GLOBAL

   963 +

   964 +To avoid namespace conflicts, you can change the namespace of the

   965 +explicitly exported functions / variables using the C<DPPP_NAMESPACE>

   966 +macro. Just C<#define> the macro before including C<ppport.h>:

   967 +

   968 +    #define DPPP_NAMESPACE MyOwnNamespace_

   969 +    #include "ppport.h"

   970 +

   971 +The default namespace is C<DPPP_>.

   972 +

   973 +=back

   974 +

   975 +The good thing is that most of the above can be checked by running

   976 +F<ppport.h> on your source code. See the next section for

   977 +details.

   978 +

   979 +=head1 EXAMPLES

   980 +

   981 +To verify whether F<ppport.h> is needed for your module, whether you

   982 +should make any changes to your code, and whether any special defines

   983 +should be used, F<ppport.h> can be run as a Perl script to check your

   984 +source code. Simply say:

   985 +

   986 +    perl ppport.h

   987 +

   988 +The result will usually be a list of patches suggesting changes

   989 +that should at least be acceptable, if not necessarily the most

   990 +efficient solution, or a fix for all possible problems.

   991 +

   992 +If you know that your XS module uses features only available in

   993 +newer Perl releases, if you're aware that it uses C++ comments,

   994 +and if you want all suggestions as a single patch file, you could

   995 +use something like this:

   996 +

   997 +    perl ppport.h --compat-version=5.6.0 --cplusplus --patch=test.diff

   998 +

   999 +If you only want your code to be scanned without any suggestions

  1000 +for changes, use:

  1001 +

  1002 +    perl ppport.h --nochanges

  1003 +

  1004 +You can specify a different C<diff> program or options, using

  1005 +the C<--diff> option:

  1006 +

  1007 +    perl ppport.h --diff='diff -C 10'

  1008 +

  1009 +This would output context diffs with 10 lines of context.

  1010 +

  1011 +If you want to create patched copies of your files instead, use:

  1012 +

  1013 +    perl ppport.h --copy=.new

  1014 +

  1015 +To display portability information for the C<newSVpvn> function,

  1016 +use:

  1017 +

  1018 +    perl ppport.h --api-info=newSVpvn

  1019 +

  1020 +Since the argument to C<--api-info> can be a regular expression,

  1021 +you can use

  1022 +

  1023 +    perl ppport.h --api-info=/_nomg$/

  1024 +

  1025 +to display portability information for all C<_nomg> functions or

  1026 +

  1027 +    perl ppport.h --api-info=/./

  1028 +

  1029 +to display information for all known API elements.

  1030 +

  1031 +=head1 BUGS

  1032 +

  1033 +If this version of F<ppport.h> is causing failure during

  1034 +the compilation of this module, please check if newer versions

  1035 +of either this module or C<Devel::PPPort> are available on CPAN

  1036 +before sending a bug report.

  1037 +

  1038 +If F<ppport.h> was generated using the latest version of

  1039 +C<Devel::PPPort> and is causing failure of this module, please

  1040 +file a bug report using the CPAN Request Tracker at L<http://rt.cpan.org/>.

  1041 +

  1042 +Please include the following information:

  1043 +

  1044 +=over 4

  1045 +

  1046 +=item 1.

  1047 +

  1048 +The complete output from running "perl -V"

  1049 +

  1050 +=item 2.

  1051 +

  1052 +This file.

  1053 +

  1054 +=item 3.

  1055 +

  1056 +The name and version of the module you were trying to build.

  1057 +

  1058 +=item 4.

  1059 +

  1060 +A full log of the build that failed.

  1061 +

  1062 +=item 5.

  1063 +

  1064 +Any other information that you think could be relevant.

  1065 +

  1066 +=back

  1067 +

  1068 +For the latest version of this code, please get the C<Devel::PPPort>

  1069 +module from CPAN.

  1070 +

  1071 +=head1 COPYRIGHT

  1072 +

  1073 +Version 3.x, Copyright (c) 2004-2013, Marcus Holland-Moritz.

  1074 +

  1075 +Version 2.x, Copyright (C) 2001, Paul Marquess.

  1076 +

  1077 +Version 1.x, Copyright (C) 1999, Kenneth Albanowski.

  1078 +

  1079 +This program is free software; you can redistribute it and/or

  1080 +modify it under the same terms as Perl itself.

  1081 +

  1082 +=head1 SEE ALSO

  1083 +

  1084 +See L<Devel::PPPort>.

  1085 +

  1086 +=cut

  1087 +

  1088 +use strict;

  1089 +

  1090 +# Disable broken TRIE-optimization

  1091 +BEGIN { eval '${^RE_TRIE_MAXBUF} = -1' if $] >= 5.009004 && $] <= 5.009005 }

  1092 +

  1093 +my $VERSION = 3.21;

  1094 +

  1095 +my %opt = (

  1096 +  quiet     => 0,

  1097 +  diag      => 1,

  1098 +  hints     => 1,

  1099 +  changes   => 1,

  1100 +  cplusplus => 0,

  1101 +  filter    => 1,

  1102 +  strip     => 0,

  1103 +  version   => 0,

  1104 +);

  1105 +

  1106 +my($ppport) = $0 =~ /([\w.]+)$/;

  1107 +my $LF = '(?:\r\n|[\r\n])';   # line feed

  1108 +my $HS = "[ \t]";             # horizontal whitespace

  1109 +

  1110 +# Never use C comments in this file!

  1111 +my $ccs  = '/'.'*';

  1112 +my $cce  = '*'.'/';

  1113 +my $rccs = quotemeta $ccs;

  1114 +my $rcce = quotemeta $cce;

  1115 +

  1116 +eval {

  1117 +  require Getopt::Long;

  1118 +  Getopt::Long::GetOptions(\%opt, qw(

  1119 +    help quiet diag! filter! hints! changes! cplusplus strip version

  1120 +    patch=s copy=s diff=s compat-version=s

  1121 +    list-provided list-unsupported api-info=s

  1122 +  )) or usage();

  1123 +};

  1124 +

  1125 +if ($@ and grep /^-/, @ARGV) {

  1126 +  usage() if "@ARGV" =~ /^--?h(?:elp)?$/;

  1127 +  die "Getopt::Long not found. Please don't use any options.\n";

  1128 +}

  1129 +

  1130 +if ($opt{version}) {

  1131 +  print "This is $0 $VERSION.\n";

  1132 +  exit 0;

  1133 +}

  1134 +

  1135 +usage() if $opt{help};