r66794 - in /trunk/liblist-moreutils-perl/debian: bug_report_demos/49796.pl bug_report_demos/57499.pl changelog

[periapt-guest at users.alioth.debian.org]

Author: periapt-guest
Date: Sat Jan  1 16:18:03 2011
New Revision: 66794

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=66794
Log:
rt#57499 - confirmed to be a problem in this release
rt#49796 - confirmed to be a problem in this release

Added:
    trunk/liblist-moreutils-perl/debian/bug_report_demos/49796.pl
    trunk/liblist-moreutils-perl/debian/bug_report_demos/57499.pl
Modified:
    trunk/liblist-moreutils-perl/debian/changelog

Added: trunk/liblist-moreutils-perl/debian/bug_report_demos/49796.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblist-moreutils-perl/debian/bug_report_demos/49796.pl?rev=66794&op=file
==============================================================================
--- trunk/liblist-moreutils-perl/debian/bug_report_demos/49796.pl (added)
+++ trunk/liblist-moreutils-perl/debian/bug_report_demos/49796.pl Sat Jan  1 16:18:03 2011
@@ -1,0 +1,22 @@
+# BEGIN { use Carp; $ENV{LIST_MOREUTILS_PP} = 1; }
+
+use strict;
+use warnings;
+use List::MoreUtils;
+print List::MoreUtils->VERSION, "\n";
+
+my $obj = MyObj->new;
+for (;;) {
+  eval { List::MoreUtils::uniq ($obj, $obj) };
+}
+
+
+package MyObj;
+use overload '""' => \&stringize;
+sub new {
+  my ($class) = @_;
+  return bless {}, $class;
+}
+sub stringize {
+  die "MyObj stringize error";
+}

Added: trunk/liblist-moreutils-perl/debian/bug_report_demos/57499.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblist-moreutils-perl/debian/bug_report_demos/57499.pl?rev=66794&op=file
==============================================================================
--- trunk/liblist-moreutils-perl/debian/bug_report_demos/57499.pl (added)
+++ trunk/liblist-moreutils-perl/debian/bug_report_demos/57499.pl Sat Jan  1 16:18:03 2011
@@ -1,0 +1,8 @@
+use strict;
+use warnings;
+
+use List::MoreUtils qw(pairwise);
+my @left = (1..100);
+my @right = (101..200);
+pairwise { $a+ $b} @left, @right while 1;
+

Modified: trunk/liblist-moreutils-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblist-moreutils-perl/debian/changelog?rev=66794&op=diff
==============================================================================
--- trunk/liblist-moreutils-perl/debian/changelog (original)
+++ trunk/liblist-moreutils-perl/debian/changelog Sat Jan  1 16:18:03 2011
@@ -10,6 +10,8 @@
   rt#41494 - not a problem for us, but the code is running PP not XS
   rt#41097 - not a problem for us, but the code is running PP not XS
   rt#58325 - not a problem for us, but the code is running PP not XS
+  rt#57499 - confirmed to be a problem in this release
+  rt#49796 - confirmed to be a problem in this release
 
   [ gregor herrmann ]
   * debian/rules: switch order of arguments to dh.