Permalink
Browse files

Update for all releases since September 2011

  • Loading branch information...
1 parent 4f038ae commit ce66429e0efd58fc9c6f708515fa5d6684e367bb @bingos bingos committed Jan 24, 2012
Showing with 6,010 additions and 509 deletions.
  1. +41 −0 datadump.patch
  2. +721 −0 inc/Data/Dump.pm
  3. +717 −0 inc/Data/Dump.pm.orig
  4. +1 −1 lib/Module/CoreList/Perl5006.pm
  5. +1 −1 lib/Module/CoreList/Perl5006001.pm
  6. +3 −3 lib/Module/CoreList/Perl5008007.pm
  7. +3 −3 lib/Module/CoreList/Perl5008008.pm
  8. +393 −397 lib/Module/CoreList/Perl5008009.pm
  9. +3 −3 lib/Module/CoreList/Perl5009002.pm
  10. +3 −3 lib/Module/CoreList/Perl5009003.pm
  11. +3 −3 lib/Module/CoreList/Perl5009004.pm
  12. +3 −4 lib/Module/CoreList/Perl5009005.pm
  13. +3 −4 lib/Module/CoreList/Perl501.pm
  14. +2 −3 lib/Module/CoreList/Perl5010001.pm
  15. +0 −3 lib/Module/CoreList/Perl5011.pm
  16. +0 −3 lib/Module/CoreList/Perl5011001.pm
  17. +0 −4 lib/Module/CoreList/Perl5011002.pm
  18. +0 −4 lib/Module/CoreList/Perl5011003.pm
  19. +0 −3 lib/Module/CoreList/Perl5011004.pm
  20. +0 −4 lib/Module/CoreList/Perl5011005.pm
  21. +0 −3 lib/Module/CoreList/Perl5012.pm
  22. +0 −3 lib/Module/CoreList/Perl5012001.pm
  23. +0 −3 lib/Module/CoreList/Perl5012002.pm
  24. +1 −5 lib/Module/CoreList/Perl5012003.pm
  25. +0 −3 lib/Module/CoreList/Perl5012004.pm
  26. +0 −3 lib/Module/CoreList/Perl5013.pm
  27. +0 −3 lib/Module/CoreList/Perl5013001.pm
  28. +0 −3 lib/Module/CoreList/Perl5013002.pm
  29. +0 −3 lib/Module/CoreList/Perl5013003.pm
  30. +0 −3 lib/Module/CoreList/Perl5013004.pm
  31. +0 −4 lib/Module/CoreList/Perl5013005.pm
  32. +0 −4 lib/Module/CoreList/Perl5013006.pm
  33. +0 −3 lib/Module/CoreList/Perl5013007.pm
  34. +0 −3 lib/Module/CoreList/Perl5013008.pm
  35. +0 −3 lib/Module/CoreList/Perl5013009.pm
  36. +0 −3 lib/Module/CoreList/Perl501301.pm
  37. +0 −3 lib/Module/CoreList/Perl5013011.pm
  38. +0 −3 lib/Module/CoreList/Perl5014.pm
  39. +0 −3 lib/Module/CoreList/Perl5014001.pm
  40. +671 −0 lib/Module/CoreList/Perl5014002.pm
  41. +0 −2 lib/Module/CoreList/Perl5015.pm
  42. +682 −0 lib/Module/CoreList/Perl5015003.pm
  43. +682 −0 lib/Module/CoreList/Perl5015004.pm
  44. +685 −0 lib/Module/CoreList/Perl5015005.pm
  45. +693 −0 lib/Module/CoreList/Perl5015006.pm
  46. +698 −0 lib/Module/CoreList/Perl5015007.pm
  47. +1 −0 unwrap.pl
View
@@ -0,0 +1,41 @@
+--- /opt/perl-5.14.1/lib/site_perl/5.14.1/Data/Dump.pm 2010-10-19 19:20:43.000000000 +0100
++++ /opt/perl-5.14.0/lib/site_perl/5.14.0/Data/Dump.pm 2011-06-09 16:55:51.000000000 +0100
+@@ -13,10 +13,12 @@
+ $DEBUG = 0;
+
+ use overload ();
+-use vars qw(%seen %refcnt @dump @fixup %require $TRY_BASE64 @FILTERS $INDENT);
++use vars qw(%seen %refcnt @dump @fixup %require $TRY_BASE64 @FILTERS $INDENT $QUOTE_KEYS $SINGLE_QUOTE);
+
+ $TRY_BASE64 = 50 unless defined $TRY_BASE64;
+ $INDENT = " " unless defined $INDENT;
++$QUOTE_KEYS = 0 unless $QUOTE_KEYS;
++$SINGLE_QUOTE = 0 unless $SINGLE_QUOTE;
+
+ sub dump
+ {
+@@ -303,6 +305,7 @@
+ }
+
+ my $quote;
++ $quote++ if $QUOTE_KEYS;
+ for my $key (@orig_keys) {
+ next if $key =~ /^-?[a-zA-Z_]\w*\z/;
+ next if $key =~ /^-?[1-9]\d{0,8}\z/;
+@@ -533,7 +536,7 @@
+ local($_) = $_[0];
+ # If there are many '"' we might want to use qq() instead
+ s/([\\\"\@\$])/\\$1/g;
+- return qq("$_") unless /[^\040-\176]/; # fast exit
++ return ( $SINGLE_QUOTE ? qq('$_') : qq("$_") ) unless /[^\040-\176]/; # fast exit
+
+ s/([\a\b\t\n\f\r\e])/$esc{$1}/g;
+
+@@ -543,6 +546,7 @@
+ s/([\0-\037\177-\377])/sprintf('\\x%02X',ord($1))/eg;
+ s/([^\040-\176])/sprintf('\\x{%X}',ord($1))/eg;
+
++ return qq('$_') if $SINGLE_QUOTE;
+ return qq("$_");
+ }
+
Oops, something went wrong.

0 comments on commit ce66429

Please sign in to comment.