r66790 - in /trunk/liblist-moreutils-perl/debian: bug_report_demos/ bug_report_demos/41097.pl bug_report_demos/41494.pl bug_report_demos/58325.pl changelog

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

Author: periapt-guest
Date: Sat Jan  1 15:50:35 2011
New Revision: 66790

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=66790
Log:
rt#58325 - not a problem for us, but the code is running PP not XS

Added:
    trunk/liblist-moreutils-perl/debian/bug_report_demos/
    trunk/liblist-moreutils-perl/debian/bug_report_demos/41097.pl
    trunk/liblist-moreutils-perl/debian/bug_report_demos/41494.pl
    trunk/liblist-moreutils-perl/debian/bug_report_demos/58325.pl
Modified:
    trunk/liblist-moreutils-perl/debian/changelog

Added: trunk/liblist-moreutils-perl/debian/bug_report_demos/41097.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblist-moreutils-perl/debian/bug_report_demos/41097.pl?rev=66790&op=file
==============================================================================
--- trunk/liblist-moreutils-perl/debian/bug_report_demos/41097.pl (added)
+++ trunk/liblist-moreutils-perl/debian/bug_report_demos/41097.pl Sat Jan  1 15:50:35 2011
@@ -1,0 +1,12 @@
+use strict;
+use warnings;
+
+# use Carp;
+# BEGIN { $ENV{LIST_MOREUTILS_PP} = 1; };
+
+use List::MoreUtils qw(part);
+while(1) {
+    my $i = 0;
+    # returns [1,3,5,7], [2,4,6,8]
+    my @part  = part { $i++ % 2 } 1..8;
+}

Added: trunk/liblist-moreutils-perl/debian/bug_report_demos/41494.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblist-moreutils-perl/debian/bug_report_demos/41494.pl?rev=66790&op=file
==============================================================================
--- trunk/liblist-moreutils-perl/debian/bug_report_demos/41494.pl (added)
+++ trunk/liblist-moreutils-perl/debian/bug_report_demos/41494.pl Sat Jan  1 15:50:35 2011
@@ -1,0 +1,14 @@
+use strict;
+use warnings;
+
+# use Carp;
+# BEGIN { $ENV{LIST_MOREUTILS_PP} = 1; };
+
+use List::MoreUtils;
+
+my @a = (10,11,12,13,14,15);
+print "odd numbers: ", (List::MoreUtils::indexes {$_&1} @a), "\n";
+
+for (;;) {
+  List::MoreUtils::indexes {$_&1} @a;
+}

Added: trunk/liblist-moreutils-perl/debian/bug_report_demos/58325.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblist-moreutils-perl/debian/bug_report_demos/58325.pl?rev=66790&op=file
==============================================================================
--- trunk/liblist-moreutils-perl/debian/bug_report_demos/58325.pl (added)
+++ trunk/liblist-moreutils-perl/debian/bug_report_demos/58325.pl Sat Jan  1 15:50:35 2011
@@ -1,0 +1,10 @@
+use strict;
+use warnings;
+
+# use Carp;
+# BEGIN { $ENV{LIST_MOREUTILS_PP} = 1; };
+
+use List::MoreUtils qw(apply);
+while(1) {
+    apply {} (1);
+}

Modified: trunk/liblist-moreutils-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblist-moreutils-perl/debian/changelog?rev=66790&op=diff
==============================================================================
--- trunk/liblist-moreutils-perl/debian/changelog (original)
+++ trunk/liblist-moreutils-perl/debian/changelog Sat Jan  1 15:50:35 2011
@@ -9,6 +9,7 @@
   them against any code we distribute.
   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
 
   [ gregor herrmann ]
   * debian/rules: switch order of arguments to dh.