FAQ
In perl.git, the branch sprout/mywack has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/e9d46eee3285f7df2c960d1b21508c5fde08071a?hp=123d547777f4e403219b0f1c82b90f497d984cf1>

- Log -----------------------------------------------------------------
commit e9d46eee3285f7df2c960d1b21508c5fde08071a
Author: Father Chrysostomos <sprout@cpan.org>
Date: Wed May 25 21:44:48 2016 -0700

     fixup for warnings category
-----------------------------------------------------------------------

Summary of changes:
  lib/B/Deparse.t | 12 ++++++------
  1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/lib/B/Deparse.t b/lib/B/Deparse.t
index fe13aae..ba24c27 100644
--- a/lib/B/Deparse.t
+++ b/lib/B/Deparse.t
@@ -1946,12 +1946,12 @@ no warnings "experimental::lexical_subs";
  my sub f {}
  print f();
  >>>>
-BEGIN {${^WARNING_BITS} = "\x54\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x54\x55\x55\x55\x15"}
+BEGIN {${^WARNING_BITS} = "\x54\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x54\x55\x55\x55\x55"}
  my sub f {
- BEGIN {${^WARNING_BITS} = "\x54\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x54\x55\x55\x15"}
+ BEGIN {${^WARNING_BITS} = "\x54\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x54\x55\x55\x55"}

  }
-BEGIN {${^WARNING_BITS} = "\x54\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x54\x55\x55\x15"}
+BEGIN {${^WARNING_BITS} = "\x54\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x54\x55\x55\x55"}
  print f();
  ####
  # SKIP ?$] < 5.017004 && "lexical subs not implemented on this Perl version"
@@ -1961,12 +1961,12 @@ no warnings 'experimental::lexical_subs';
  state sub f {}
  print f();
  >>>>
-BEGIN {${^WARNING_BITS} = "\x54\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x54\x55\x55\x55\x15"}
+BEGIN {${^WARNING_BITS} = "\x54\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x54\x55\x55\x55\x55"}
  state sub f {
- BEGIN {${^WARNING_BITS} = "\x54\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x54\x55\x55\x15"}
+ BEGIN {${^WARNING_BITS} = "\x54\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x54\x55\x55\x55"}

  }
-BEGIN {${^WARNING_BITS} = "\x54\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x54\x55\x55\x15"}
+BEGIN {${^WARNING_BITS} = "\x54\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x54\x55\x55\x55"}
  print f();
  ####
  # SKIP ?$] < 5.017004 && "lexical subs not implemented on this Perl version"

--
Perl5 Master Repository

Search Discussions

Related Discussions

Discussion Navigation
viewthread | post
Discussion Overview
groupperl5-changes @
categoriesperl
postedMay 26, '16 at 4:45a
activeMay 26, '16 at 4:45a
posts1
users1
websiteperl.org

1 user in discussion

Father Chrysostomos: 1 post

People

Translate

site design / logo © 2018 Grokbase