[Lsb-messages] /var/www/bzr/lsb/devel/perl-test r98: Add a test setup mod to IO.t for 5.16.0+

Stew Benedict stewb at linux-foundation.org
Thu Jun 21 13:43:58 UTC 2012


------------------------------------------------------------
revno: 98
committer: Stew Benedict <stewb at linux-foundation.org>
branch nick: perl-test
timestamp: Thu 2012-06-21 09:43:58 -0400
message:
  Add a test setup mod to IO.t for 5.16.0+
modified:
  scripts/package/Makefile
  scripts/package/perl-test-bug-3590.patch
-------------- next part --------------
=== modified file 'scripts/package/Makefile'
--- a/scripts/package/Makefile	2012-06-12 20:38:57 +0000
+++ b/scripts/package/Makefile	2012-06-21 13:43:58 +0000
@@ -2,7 +2,7 @@
 # XXX a specfile from this info, but not yet: for now keep in sync
 PACKAGE=lsb-test-perl
 VERSION=4.1.6
-RELEASE=1
+RELEASE=2
 PERLVER8=5.8.8
 PERLVER10=5.10.0
 PERLURL=http://www.cpan.org/src/5.0/

=== modified file 'scripts/package/perl-test-bug-3590.patch'
--- a/scripts/package/perl-test-bug-3590.patch	2012-06-12 20:38:57 +0000
+++ b/scripts/package/perl-test-bug-3590.patch	2012-06-21 13:43:58 +0000
@@ -1,7 +1,7 @@
-diff -ur 5.10.0/ext/B/t/b.t 5.16.0/ext/B/t/b.t
---- 5.10.0/ext/B/t/b.t	2012-06-09 09:55:59.000000000 -0400
-+++ 5.16.0/ext/B/t/b.t	2012-06-12 09:33:38.000000000 -0400
-@@ -22,7 +22,7 @@
+diff -up ./ext/B/t/b.t.3590 ./ext/B/t/b.t
+--- ./ext/B/t/b.t.3590	2012-06-21 09:41:11.921234280 -0400
++++ ./ext/B/t/b.t	2012-06-21 09:41:11.988234280 -0400
+@@ -22,7 +22,7 @@ BEGIN {
  $|  = 1;
  use warnings;
  use strict;
@@ -10,7 +10,7 @@
  
  BEGIN { use_ok( 'B' ); }
  
-@@ -171,7 +171,8 @@
+@@ -171,7 +171,8 @@ is(B::cstring("wibble"), '"wibble"', "Te
  is(B::perlstring("wibble"), '"wibble"', "Testing B::perlstring()");
  is(B::class(bless {}, "Wibble::Bibble"), "Bibble", "Testing B::class()");
  is(B::cast_I32(3.14), 3, "Testing B::cast_I32()");
@@ -20,10 +20,10 @@
  
  {
      no warnings 'once';
-diff -ur 5.10.0/ext/B/t/optree_check.t 5.16.0/ext/B/t/optree_check.t
---- 5.10.0/ext/B/t/optree_check.t	2012-06-09 09:55:59.000000000 -0400
-+++ 5.16.0/ext/B/t/optree_check.t	2012-06-12 09:39:11.000000000 -0400
-@@ -33,7 +33,7 @@
+diff -up ./ext/B/t/optree_check.t.3590 ./ext/B/t/optree_check.t
+--- ./ext/B/t/optree_check.t.3590	2012-06-21 09:41:11.921234280 -0400
++++ ./ext/B/t/optree_check.t	2012-06-21 09:41:11.988234280 -0400
+@@ -33,7 +33,7 @@ cmdline args in 'standard' way across al
  
  =cut
  
@@ -32,7 +32,7 @@
  plan tests => $tests;
  
  SKIP: {
-@@ -213,6 +213,8 @@
+@@ -213,6 +213,8 @@ EOT_EOT
  # 5              <$> gvsv(*a) s ->6
  EONT_EONT
  
@@ -41,10 +41,78 @@
  checkOptree ( code	=> '$a=$b+42',
  	      bcopts	=> '-exec',
  	      expect	=> <<'EOT_EOT', expect_nt => <<'EONT_EONT');
-diff -ur 5.10.0/lib/base/t/base.t 5.16.0/lib/base/t/base.t
---- 5.10.0/lib/base/t/base.t	2012-06-09 09:55:59.000000000 -0400
-+++ 5.16.0/lib/base/t/base.t	2012-06-12 10:52:57.000000000 -0400
-@@ -8,7 +8,7 @@
+diff -up ./ext/IO/t/IO.t.3590 ./ext/IO/t/IO.t
+--- ./ext/IO/t/IO.t.3590	2012-06-21 09:41:11.923234280 -0400
++++ ./ext/IO/t/IO.t	2012-06-21 09:41:11.989234280 -0400
+@@ -23,8 +23,16 @@ plan(tests => 18);
+ 
+ 	my @load;
+ 	local $^W;
++	# test setup a little different for 5.16.0+ (LSB bug 3590)
++	my $xsl;
++	if ( $] >= 5.016000 ) {
++		$xsl = \&XSLoader::load;
++	}
+ 	local *XSLoader::load = sub {
+ 		push @load, \@_;
++		if ( $] >= 5.016000 ) {
++			&$xsl(@_);
++		}
+ 	};
+ 
+ 	# use_ok() calls import, which we do not want to do
+diff -up ./lib/Pod/t/Functions.t.3590 ./lib/Pod/t/Functions.t
+--- ./lib/Pod/t/Functions.t.3590	2012-06-21 09:41:11.943234280 -0400
++++ ./lib/Pod/t/Functions.t	2012-06-21 09:41:11.989234280 -0400
+@@ -59,7 +59,8 @@ SKIP: {
+ 	skip( "Pipe error: $!", 1)
+ 	    unless close $fh;
+ 
+-	is( $fake_out, $test_out, 'run as plain program' );
++	# LSB bug 3590 - fails with 5.16.0
++	skip( $fake_out, $test_out, 'run as plain program' );
+ }
+ 
+ =head1 NAME
+diff -up ./lib/Tie/File/t/00_version.t.3590 ./lib/Tie/File/t/00_version.t
+--- ./lib/Tie/File/t/00_version.t.3590	2007-12-18 05:47:07.000000000 -0500
++++ ./lib/Tie/File/t/00_version.t	2012-06-21 09:41:11.989234280 -0400
+@@ -2,6 +2,10 @@
+ 
+ print "1..1\n";
+ 
++#LSB Bug 3590 - fails with 5.16.0 - just remove?
++print "ok 1\n";
++exit(0);
++
+ my $testversion = "0.97_01";
+ use Tie::File;
+ 
+diff -up ./lib/Time/Local.t.3590 ./lib/Time/Local.t
+--- ./lib/Time/Local.t.3590	2012-06-21 09:41:11.959234280 -0400
++++ ./lib/Time/Local.t	2012-06-21 09:41:11.989234280 -0400
+@@ -78,7 +78,7 @@ $tests += @neg_time * 12;
+ $tests += @bad_time;
+ $tests += @years;
+ $tests += 10;
+-$tests += 2 if $ENV{PERL_CORE};
++#$tests += 2 if $ENV{PERL_CORE};
+ $tests += 8 if $ENV{MAINTAINER};
+ 
+ plan tests => $tests;
+@@ -246,6 +246,8 @@ if ($ENV{MAINTAINER}) {
+         'hour is 2 when given 2:00 AM on Europe/London date change' );
+ }
+ 
++# LSB bug 3590 - timelocal.pl is gone with 5.16.0
++exit(0);
+ if ($ENV{PERL_CORE}) {
+   package test;
+   require 'timelocal.pl';
+diff -up ./lib/base/t/base.t.3590 ./lib/base/t/base.t
+--- ./lib/base/t/base.t.3590	2012-06-21 09:41:11.960234280 -0400
++++ ./lib/base/t/base.t	2012-06-21 09:41:11.989234280 -0400
+@@ -8,7 +8,7 @@ BEGIN {
  }
  
  use strict;
@@ -53,7 +121,7 @@
  
  use_ok('base');
  
-@@ -21,7 +21,8 @@
+@@ -21,7 +21,8 @@ sub VERSION { 42 }
  package Test::Version;
  
  use base qw(No::Version);
@@ -63,11 +131,10 @@
  
  # Test Inverse of $VERSION bug base.pm should not clobber existing $VERSION
  package Has::Version;
-Only in 5.16.0/lib: blib.pm
-diff -ur 5.10.0/lib/charnames.t 5.16.0/lib/charnames.t
---- 5.10.0/lib/charnames.t	2012-06-09 09:55:59.000000000 -0400
-+++ 5.16.0/lib/charnames.t	2012-06-12 11:28:41.000000000 -0400
-@@ -222,7 +222,8 @@
+diff -up ./lib/charnames.t.3590 ./lib/charnames.t
+--- ./lib/charnames.t.3590	2012-06-21 09:41:11.965234280 -0400
++++ ./lib/charnames.t	2012-06-21 09:41:11.989234280 -0400
+@@ -222,7 +222,8 @@ print "ok 33\n";
      print "not " unless "\N{HORIZONTAL TABULATION}" eq "\t";
      print "ok 34\n";
  
@@ -77,11 +144,10 @@
      print "ok 35\n";
  
      no warnings 'deprecated';
-Only in 5.16.0/lib: constant.pm
-diff -ur 5.10.0/lib/open.t 5.16.0/lib/open.t
---- 5.10.0/lib/open.t	2012-06-09 09:55:59.000000000 -0400
-+++ 5.16.0/lib/open.t	2012-06-12 11:32:32.000000000 -0400
-@@ -7,7 +7,7 @@
+diff -up ./lib/open.t.3590 ./lib/open.t
+--- ./lib/open.t.3590	2012-06-21 09:41:11.973234280 -0400
++++ ./lib/open.t	2012-06-21 09:41:11.989234280 -0400
+@@ -7,7 +7,7 @@ BEGIN {
  	require Config; import Config;
  }
  
@@ -90,7 +156,7 @@
  
  # open::import expects 'open' as its first argument, but it clashes with open()
  sub import {
-@@ -187,8 +187,9 @@
+@@ -187,8 +187,9 @@ SKIP: {
      eval {
  	require Symbol; # Anything that exists but we havn't loaded
      };
@@ -102,10 +168,10 @@
  }
  
  END {
-diff -ur 5.10.0/lib/overload.t 5.16.0/lib/overload.t
---- 5.10.0/lib/overload.t	2012-06-09 09:55:59.000000000 -0400
-+++ 5.16.0/lib/overload.t	2012-06-12 11:48:17.000000000 -0400
-@@ -47,7 +47,7 @@
+diff -up ./lib/overload.t.3590 ./lib/overload.t
+--- ./lib/overload.t.3590	2012-06-21 09:41:11.987234280 -0400
++++ ./lib/overload.t	2012-06-21 09:41:11.990234280 -0400
+@@ -47,7 +47,7 @@ sub numify { 0 + "${$_[0]}" }	# Not need
  package main;
  
  $| = 1;
@@ -114,7 +180,7 @@
  
  
  $a = new Oscalar "087";
-@@ -940,7 +940,8 @@
+@@ -940,7 +940,8 @@ unless ($aaa) {
      is($a, "");
      use warnings 'overload' ;
      $x = eval ' overload::constant "fred" => sub {} ; ' ;
@@ -124,7 +190,7 @@
  }
  
  {
-@@ -951,7 +952,8 @@
+@@ -951,7 +952,8 @@ unless ($aaa) {
      is($a, "");
      use warnings 'overload' ;
      $x = eval ' overload::constant "integer" => 1; ' ;
@@ -134,62 +200,10 @@
  }
  
  {
-Only in 5.16.0/lib/Pod: Functions.pm
-diff -ur 5.10.0/lib/Pod/t/Functions.t 5.16.0/lib/Pod/t/Functions.t
---- 5.10.0/lib/Pod/t/Functions.t	2012-06-09 09:55:59.000000000 -0400
-+++ 5.16.0/lib/Pod/t/Functions.t	2012-06-12 10:19:42.000000000 -0400
-@@ -59,7 +59,8 @@
- 	skip( "Pipe error: $!", 1)
- 	    unless close $fh;
- 
--	is( $fake_out, $test_out, 'run as plain program' );
-+	# LSB bug 3590 - fails with 5.16.0
-+	skip( $fake_out, $test_out, 'run as plain program' );
- }
- 
- =head1 NAME
-Only in 5.16.0/lib: strict.pm
-diff -ur 5.10.0/lib/Tie/File/t/00_version.t 5.16.0/lib/Tie/File/t/00_version.t
---- 5.10.0/lib/Tie/File/t/00_version.t	2007-12-18 05:47:07.000000000 -0500
-+++ 5.16.0/lib/Tie/File/t/00_version.t	2012-06-12 10:25:56.000000000 -0400
-@@ -2,6 +2,10 @@
- 
- print "1..1\n";
- 
-+#LSB Bug 3590 - fails with 5.16.0 - just remove?
-+print "ok 1\n";
-+exit(0);
-+
- my $testversion = "0.97_01";
- use Tie::File;
- 
-diff -ur 5.10.0/lib/Time/Local.t 5.16.0/lib/Time/Local.t
---- 5.10.0/lib/Time/Local.t	2012-06-09 09:55:59.000000000 -0400
-+++ 5.16.0/lib/Time/Local.t	2012-06-12 10:39:46.000000000 -0400
-@@ -78,7 +78,7 @@
- $tests += @bad_time;
- $tests += @years;
- $tests += 10;
--$tests += 2 if $ENV{PERL_CORE};
-+#$tests += 2 if $ENV{PERL_CORE};
- $tests += 8 if $ENV{MAINTAINER};
- 
- plan tests => $tests;
-@@ -246,6 +246,8 @@
-         'hour is 2 when given 2:00 AM on Europe/London date change' );
- }
- 
-+# LSB bug 3590 - timelocal.pl is gone with 5.16.0
-+exit(0);
- if ($ENV{PERL_CORE}) {
-   package test;
-   require 'timelocal.pl';
-Only in 5.16.0/lib/unicore: lib
-Only in 5.16.0/lib: warnings.pm
-diff -ur 5.10.0/t/comp/hints.t 5.16.0/t/comp/hints.t
---- 5.10.0/t/comp/hints.t	2012-06-09 09:55:59.000000000 -0400
-+++ 5.16.0/t/comp/hints.t	2012-06-12 12:15:40.000000000 -0400
-@@ -63,12 +63,12 @@
+diff -up ./t/comp/hints.t.3590 ./t/comp/hints.t
+--- ./t/comp/hints.t.3590	2012-06-21 09:41:11.918234280 -0400
++++ ./t/comp/hints.t	2012-06-21 09:41:11.990234280 -0400
+@@ -63,12 +63,12 @@ BEGIN {
  	print "ok 12 - \$^H doesn't contain HINT_LOCALIZE_HH at run-time\n";
      }
      # op_entereval should keep the pragmas it was compiled with
@@ -208,7 +222,7 @@
  }
  BEGIN {
      print "not " if exists $^H{foo};
-@@ -97,7 +97,7 @@
+@@ -97,7 +97,7 @@ print "# got: $result\n" if length $resu
      BEGIN{$^H{x}=1};
      for(1..2) {
          eval q(
@@ -217,10 +231,10 @@
              $^H{y} = 1;
          );
          if ($@) {
-diff -ur 5.10.0/t/comp/parser.t 5.16.0/t/comp/parser.t
---- 5.10.0/t/comp/parser.t	2012-06-09 09:55:59.000000000 -0400
-+++ 5.16.0/t/comp/parser.t	2012-06-12 13:49:29.000000000 -0400
-@@ -9,7 +9,7 @@
+diff -up ./t/comp/parser.t.3590 ./t/comp/parser.t
+--- ./t/comp/parser.t.3590	2012-06-21 09:41:11.918234280 -0400
++++ ./t/comp/parser.t	2012-06-21 09:41:11.990234280 -0400
+@@ -9,7 +9,7 @@ BEGIN {
  }
  
  BEGIN { require "./test.pl"; }
@@ -229,7 +243,7 @@
  
  eval '%@x=0;';
  like( $@, qr/^Can't modify hash dereference in repeat \(x\)/, '%@x=0' );
-@@ -185,18 +185,19 @@
+@@ -185,18 +185,19 @@ EOF
      if ($[ = 0) { $x = 1 }
      pass('optimized assignment to $[ used to segfault in scalar context');
      $x = ($[=2.4);
@@ -256,10 +270,10 @@
  }
  
  # tests for "Bad name"
-diff -ur 5.10.0/t/lib/strict/refs 5.16.0/t/lib/strict/refs
---- 5.10.0/t/lib/strict/refs	2012-06-09 09:55:59.000000000 -0400
-+++ 5.16.0/t/lib/strict/refs	2012-06-12 12:00:12.000000000 -0400
-@@ -303,15 +303,17 @@
+diff -up ./t/lib/strict/refs.3590 ./t/lib/strict/refs
+--- ./t/lib/strict/refs.3590	2012-06-21 09:41:11.842234280 -0400
++++ ./t/lib/strict/refs	2012-06-21 09:41:11.990234280 -0400
+@@ -303,15 +303,17 @@ EXPECT
  Can't use string ("foo") as a SCALAR ref while "strict refs" in use at (re_eval 1) line 1.
  ########
  # [perl #37886] strict 'refs' doesn't apply inside defined
@@ -287,10 +301,10 @@
 +# defined @$x;
 +# EXPECT
 +# Can't use string ("foo") as an ARRAY ref while "strict refs" in use at - line 4.
-diff -ur 5.10.0/t/lib/strict/subs 5.16.0/t/lib/strict/subs
---- 5.10.0/t/lib/strict/subs	2007-12-18 05:47:08.000000000 -0500
-+++ 5.16.0/t/lib/strict/subs	2012-06-12 11:57:13.000000000 -0400
-@@ -42,21 +42,23 @@
+diff -up ./t/lib/strict/subs.3590 ./t/lib/strict/subs
+--- ./t/lib/strict/subs.3590	2007-12-18 05:47:08.000000000 -0500
++++ ./t/lib/strict/subs	2012-06-21 09:41:11.990234280 -0400
+@@ -42,21 +42,23 @@ Execution of - aborted due to compilatio
  ########
  
  # strict subs - error
@@ -326,10 +340,10 @@
  ########
  
  # strict subs - error
-diff -ur 5.10.0/t/op/cproto.t 5.16.0/t/op/cproto.t
---- 5.10.0/t/op/cproto.t	2012-06-09 09:55:59.000000000 -0400
-+++ 5.16.0/t/op/cproto.t	2012-06-12 13:57:55.000000000 -0400
-@@ -7,7 +7,7 @@
+diff -up ./t/op/cproto.t.3590 ./t/op/cproto.t
+--- ./t/op/cproto.t.3590	2012-06-21 09:41:11.909234280 -0400
++++ ./t/op/cproto.t	2012-06-21 09:41:11.991234280 -0400
+@@ -7,7 +7,7 @@ BEGIN {
  }
  
  BEGIN { require './test.pl'; }
@@ -338,7 +352,7 @@
  
  while (<DATA>) {
      chomp;
-@@ -45,7 +45,6 @@
+@@ -45,7 +45,6 @@ chr (_)
  chroot (_)
  close (;*)
  closedir (*)
@@ -346,7 +360,7 @@
  connect (*$)
  continue ()
  cos (_)
-@@ -66,7 +65,6 @@
+@@ -66,7 +65,6 @@ endprotoent ()
  endpwent ()
  endservent ()
  eof (;*)
@@ -354,7 +368,7 @@
  eval undef
  exec undef
  exists undef
-@@ -80,7 +78,6 @@
+@@ -80,7 +78,6 @@ foreach undef
  fork ()
  format undef
  formline ($@)
@@ -362,7 +376,7 @@
  getc (;*)
  getgrent ()
  getgrgid ($)
-@@ -97,7 +94,6 @@
+@@ -97,7 +94,6 @@ getpgrp (;$)
  getppid ()
  getpriority ($$)
  getprotobyname ($)
@@ -370,7 +384,7 @@
  getprotoent ()
  getpwent ()
  getpwnam ($)
-@@ -112,7 +108,6 @@
+@@ -112,7 +108,6 @@ glob undef
  gmtime (;$)
  goto undef
  grep undef
@@ -378,7 +392,7 @@
  hex (_)
  if undef
  index ($$;$)
-@@ -123,28 +118,20 @@
+@@ -123,28 +118,20 @@ kill (@)
  last undef
  lc (_)
  lcfirst (_)
@@ -407,7 +421,7 @@
  oct (_)
  open (*;$@)
  opendir (*$)
-@@ -186,7 +173,6 @@
+@@ -186,7 +173,6 @@ say undef
  scalar undef
  seek (*$$)
  seekdir (*$)
@@ -415,7 +429,7 @@
  semctl ($$$$)
  semget ($$$)
  semop ($$)
-@@ -214,7 +200,6 @@
+@@ -214,7 +200,6 @@ split undef
  sprintf ($@)
  sqrt (_)
  srand (;$)
@@ -423,7 +437,7 @@
  state undef
  study undef
  sub undef
-@@ -238,7 +223,6 @@
+@@ -238,7 +223,6 @@ umask (;$)
  undef undef
  unless undef
  unlink (@)
@@ -431,17 +445,17 @@
  until undef
  use undef
  utime (@)
-@@ -250,6 +234,4 @@
+@@ -250,6 +234,4 @@ warn (@)
  when undef
  while undef
  write (;*)
 -x unknown
 -xor ($$)
  y undef
-diff -ur 5.10.0/t/op/glob.t 5.16.0/t/op/glob.t
---- 5.10.0/t/op/glob.t	2012-06-09 09:55:59.000000000 -0400
-+++ 5.16.0/t/op/glob.t	2012-06-12 14:09:06.000000000 -0400
-@@ -72,7 +72,8 @@
+diff -up ./t/op/glob.t.3590 ./t/op/glob.t
+--- ./t/op/glob.t.3590	2012-06-21 09:41:11.892234280 -0400
++++ ./t/op/glob.t	2012-06-21 09:41:11.991234280 -0400
+@@ -72,7 +72,8 @@ SKIP: {
  	unless $INC{'File/Glob.pm'};
      my $ok = 0;
      $ok = 1 while my $var = glob("0");
@@ -451,10 +465,10 @@
  }
  
  # The formerly-broken test for the situation above would accidentally
-diff -ur 5.10.0/t/op/local.t 5.16.0/t/op/local.t
---- 5.10.0/t/op/local.t	2012-06-09 09:55:59.000000000 -0400
-+++ 5.16.0/t/op/local.t	2012-06-12 14:31:45.000000000 -0400
-@@ -5,7 +5,7 @@
+diff -up ./t/op/local.t.3590 ./t/op/local.t
+--- ./t/op/local.t.3590	2012-06-21 09:41:11.851234280 -0400
++++ ./t/op/local.t	2012-06-21 09:41:11.991234280 -0400
+@@ -5,7 +5,7 @@ BEGIN {
      @INC = qw(. ../lib);
      require './test.pl';
  }
@@ -463,7 +477,7 @@
  
  my $list_assignment_supported = 1;
  
-@@ -333,13 +333,13 @@
+@@ -333,13 +333,13 @@ eval { for("a") { for $x (1,2) { local $
  is($@, "");
  
  # RT #4342 Special local() behavior for $[
@@ -483,10 +497,10 @@
  
  # sub localisation
  {
-diff -ur 5.10.0/t/op/magic.t 5.16.0/t/op/magic.t
---- 5.10.0/t/op/magic.t	2012-06-09 09:55:59.000000000 -0400
-+++ 5.16.0/t/op/magic.t	2012-06-12 09:30:56.000000000 -0400
-@@ -36,7 +36,7 @@
+diff -up ./t/op/magic.t.3590 ./t/op/magic.t
+--- ./t/op/magic.t.3590	2012-06-21 09:41:11.896234280 -0400
++++ ./t/op/magic.t	2012-06-21 09:41:11.991234280 -0400
+@@ -36,7 +36,7 @@ sub skip {
      return 1;
  }
  
@@ -495,7 +509,7 @@
  
  $Is_MSWin32  = $^O eq 'MSWin32';
  $Is_NetWare  = $^O eq 'NetWare';
-@@ -182,7 +182,8 @@
+@@ -182,7 +182,8 @@ ok $@ eq "foo\n", $@;
  
  ok $$ > 0, $$;
  eval { $$++ };
@@ -505,10 +519,10 @@
  
  # $^X and $0
  {
-diff -ur 5.10.0/t/op/quotemeta.t 5.16.0/t/op/quotemeta.t
---- 5.10.0/t/op/quotemeta.t	2012-06-09 09:55:59.000000000 -0400
-+++ 5.16.0/t/op/quotemeta.t	2012-06-12 14:36:11.000000000 -0400
-@@ -7,7 +7,7 @@
+diff -up ./t/op/quotemeta.t.3590 ./t/op/quotemeta.t
+--- ./t/op/quotemeta.t.3590	2012-06-21 09:41:11.910234280 -0400
++++ ./t/op/quotemeta.t	2012-06-21 09:41:11.992234280 -0400
+@@ -7,7 +7,7 @@ BEGIN {
      require "test.pl";
  }
  
@@ -517,7 +531,7 @@
  
  if ($Config{ebcdic} eq 'define') {
      $_ = join "", map chr($_), 129..233;
-@@ -44,8 +44,9 @@
+@@ -44,8 +44,9 @@ is("\Q\l\UPe*x*r\El\E*", "pE\\*X\\*Rl*",
  is("\U\lPerl\E\E\E\E", "pERL", '\U\lPerl\E\E\E\E');
  is("\l\UPerl\E\E\E\E", "pERL", '\l\UPerl\E\E\E\E');
  
@@ -529,10 +543,10 @@
  
  $a = "foo|bar";
  is("a\Q\Ec$a", "acfoo|bar", '\Q\E');
-diff -ur 5.10.0/t/op/sub_lval.t 5.16.0/t/op/sub_lval.t
---- 5.10.0/t/op/sub_lval.t	2012-06-09 09:55:59.000000000 -0400
-+++ 5.16.0/t/op/sub_lval.t	2012-06-12 14:49:10.000000000 -0400
-@@ -3,7 +3,7 @@
+diff -up ./t/op/sub_lval.t.3590 ./t/op/sub_lval.t
+--- ./t/op/sub_lval.t.3590	2012-06-21 09:41:11.902234280 -0400
++++ ./t/op/sub_lval.t	2012-06-21 09:41:11.992234280 -0400
+@@ -3,7 +3,7 @@ BEGIN {
      @INC = '../lib' unless defined $ENV{PERL} && $ENV{PERL} =~ m(^/);
      require './test.pl';
  }
@@ -541,7 +555,7 @@
  
  sub a : lvalue { my $a = 34; ${\(bless \$a)} }  # Return a temporary
  sub b : lvalue { ${\shift} }
-@@ -260,7 +260,8 @@
+@@ -260,7 +260,8 @@ eval <<'EOE' or $_ = $@;
    1;
  EOE
  
@@ -551,7 +565,7 @@
  
  $_ = undef;
  eval <<'EOE' or $_ = $@;
-@@ -269,7 +270,7 @@
+@@ -269,7 +270,7 @@ eval <<'EOE' or $_ = $@;
    1;
  EOE
  
@@ -560,7 +574,7 @@
  
  $xxx = 'xxx';
  sub xxx () { $xxx }  # Not lvalue
-@@ -281,7 +282,7 @@
+@@ -281,7 +282,7 @@ eval <<'EOE' or $_ = $@;
    1;
  EOE
  
@@ -569,7 +583,7 @@
  
  $_ = undef;
  eval <<'EOE' or $_ = $@;
-@@ -289,7 +290,7 @@
+@@ -289,7 +290,7 @@ eval <<'EOE' or $_ = $@;
    1;
  EOE
  
@@ -578,7 +592,7 @@
  
  sub yyy () { 'yyy' } # Const, not lvalue
  
-@@ -300,7 +301,7 @@
+@@ -300,7 +301,7 @@ eval <<'EOE' or $_ = $@;
    1;
  EOE
  
@@ -587,10 +601,10 @@
  
  $_ = undef;
  eval <<'EOE' or $_ = $@;
-diff -ur 5.10.0/t/op/undef.t 5.16.0/t/op/undef.t
---- 5.10.0/t/op/undef.t	2012-06-09 09:55:59.000000000 -0400
-+++ 5.16.0/t/op/undef.t	2012-06-12 14:53:42.000000000 -0400
-@@ -5,7 +5,7 @@
+diff -up ./t/op/undef.t.3590 ./t/op/undef.t
+--- ./t/op/undef.t.3590	2012-06-21 09:41:11.903234280 -0400
++++ ./t/op/undef.t	2012-06-21 09:41:11.992234280 -0400
+@@ -5,7 +5,7 @@ BEGIN {
      @INC = '../lib' unless defined $ENV{PERL} && $ENV{PERL} =~ m(^/);
  }
  
@@ -599,7 +613,7 @@
  
  print defined($a) ? "not ok 1\n" : "ok 1\n";
  
-@@ -97,8 +97,8 @@
+@@ -97,8 +97,8 @@ $test = 29;
  );
  undef %hash;
  sub X::DESTROY {
@@ -611,11 +625,10 @@
 +    #print "not " if each   %hash; print "ok $test\n"; $test++;
      print "not " if defined delete $hash{'key2'}; print "ok $test\n"; $test++;
  }
-Only in 5.16.0/t: pod2htmd.tmp
-diff -ur 5.10.0/t/run/fresh_perl.t 5.16.0/t/run/fresh_perl.t
---- 5.10.0/t/run/fresh_perl.t	2012-06-09 09:55:59.000000000 -0400
-+++ 5.16.0/t/run/fresh_perl.t	2012-06-12 15:01:28.000000000 -0400
-@@ -819,51 +819,6 @@
+diff -up ./t/run/fresh_perl.t.3590 ./t/run/fresh_perl.t
+--- ./t/run/fresh_perl.t.3590	2012-06-21 09:41:11.916234280 -0400
++++ ./t/run/fresh_perl.t	2012-06-21 09:41:11.992234280 -0400
+@@ -819,51 +819,6 @@ It's good! >A< >B<
  $_="foo";utf8::upgrade($_);/bar/i,warn$_;
  EXPECT
  foo at - line 1.
@@ -667,4 +680,3 @@
  ######## "Segfault using HTML::Entities", Richard Jolly <richardjolly at mac.com>, <A3C7D27E-C9F4-11D8-B294-003065AE00B6 at mac.com> in perl-unicode at perl.org
  -lw
  # SKIP: use Config; $ENV{PERL_CORE_MINITEST} or " $Config::Config{'extensions'} " !~ m[ Encode ] # Perl configured without Encode module
-Only in 5.16.0/t: tet_xres



More information about the lsb-messages mailing list