From: Artur Bergman <sky@nanisky.com>
Date: Sat, 8 Jun 2002 20:19:28 +0000 (+0000)
Subject: Preparing A::H for CPAN release, upped version to 0.77
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d473d728aa905c7536de5257e7ca13d507f4b3e6;p=p5sagit%2Fp5-mst-13.2.git

Preparing A::H for CPAN release, upped version to 0.77
Documented changes.
Last tweak to test case.

p4raw-id: //depot/perl@17113
---

diff --git a/lib/Attribute/Handlers.pm b/lib/Attribute/Handlers.pm
index ef67a3d..4199d9d 100644
--- a/lib/Attribute/Handlers.pm
+++ b/lib/Attribute/Handlers.pm
@@ -217,8 +217,8 @@ Attribute::Handlers - Simpler definition of attribute handlers
 
 =head1 VERSION
 
-This document describes version 0.76 of Attribute::Handlers,
-released November 15, 2001.
+This document describes version 0.77 of Attribute::Handlers,
+released June 8, 2002.
 
 =head1 SYNOPSIS
 
diff --git a/lib/Attribute/Handlers/Changes b/lib/Attribute/Handlers/Changes
index 1b5e620..d2dcce6 100644
--- a/lib/Attribute/Handlers/Changes
+++ b/lib/Attribute/Handlers/Changes
@@ -71,3 +71,24 @@ Revision history for Perl extension Attribute::Handlers
 
 	- Added $VERSION numbrs to demo modules (seems bizarre to me, but
 	  they're core too now).
+
+
+0.77	Sat Jun  8 22:58:56 CEST 2002
+
+	- Since Attribute::Handlers now is core, I will refer to changes
+	with their patch number, please read  Porting/repository.pod from
+	your a perl tarball for more information.
+
+	- Brought up to date with perl 5.8RC1 version 
+	will be 5.8 if no more changes come in
+
+	- [#13686] This changes the behaviour of lexical attributes.
+	Prior to this lexical attributes were done at a compile time, 
+	and they would loose their attribute on the next run over them.
+	Now perl 5.8 calls the attribute handler runtime whenever it hits my.
+
+	- [#14448] Fixes cases with too high refcounts on lexical attributes
+
+	- [#15945] Do not warn about too late CHECK and INIT block if
+	A::H is pulled in using a require.
+
diff --git a/lib/Attribute/Handlers/README b/lib/Attribute/Handlers/README
index c9e067c..2931c35 100644
--- a/lib/Attribute/Handlers/README
+++ b/lib/Attribute/Handlers/README
@@ -1,5 +1,5 @@
 ==============================================================================
-                Release of version 0.76 of Attribute::Handlers
+                Release of version 0.77 of Attribute::Handlers
 ==============================================================================
 
 
@@ -51,15 +51,24 @@ COPYRIGHT
 
 ==============================================================================
 
-CHANGES IN VERSION 0.76
+0.77	Sat Jun  8 22:58:56 CEST 2002
 
+	- Since Attribute::Handlers now is core, I will refer to changes
+	with their patch number, please read  Porting/repository.pod from
+	your a perl tarball for more information.
 
-	- Fixed documentation nit (thanks Rick)
+	- Brought up to date with perl 5.8RC1 version 
+	will be 5.8 if no more changes come in
 
-	- Improving intuitiveness of autotie mechanism (thanks Marcel)
+	- [#13686] This changes the behaviour of lexical attributes.
+	Prior to this lexical attributes were done at a compile time, 
+	and they would loose their attribute on the next run over them.
+	Now perl 5.8 calls the attribute handler runtime whenever it hits my.
 
-	- Added $VERSION numbrs to demo modules (seems bizarre to me, but
-	  they're core too now).
+	- [#14448] Fixes cases with too high refcounts on lexical attributes
+
+	- [#15945] Do not warn about too late CHECK and INIT block if
+	A::H is pulled in using a require.
 
 
 ==============================================================================
diff --git a/lib/Attribute/Handlers/t/multi.t b/lib/Attribute/Handlers/t/multi.t
index 4cb4992..cddab91 100644
--- a/lib/Attribute/Handlers/t/multi.t
+++ b/lib/Attribute/Handlers/t/multi.t
@@ -11,10 +11,10 @@ CHECK { $main::phase++ }
 # (correspondingly "not ok 13") depending on the success of chunk 13
 # of the test code):
 
-sub ok { $::count++; push @::results, [$_[1], $_[0]?"":"not "]; }
+sub ok { $::count++; push @::results, [$_[1], $_[0]?"":"not ", defined($_[2])?$_[2]:""]; }
 
 END { print "1..$::count\n";
-      print map "$_->[1]ok $_->[0]\n",
+      print map "$_->[1]ok $_->[0] $_->[2]\n",
 		sort {$a->[0]<=>$b->[0]}
 			grep $_->[0], @::results }
 
@@ -143,14 +143,17 @@ sub Dummy::DESTROY { $out .= "bye\n" }
 ok( $out eq "begin\nbye\n", 45 );
 
 { my $dummy : Dummy;  $dummy = bless {}, 'Dummy'; }
-ok( $out eq "begin\nbye\nbye\n", 46 );
-
+if($] < 5.008) {
+ok( 1, 46, " # skip lexicals are not runtime prior to 5.8");
+} else {
+ok( $out eq "begin\nbye\nbye\n", 46);
+}
 # are lexical attributes reapplied correctly?
 sub dummy { my $dummy : Dummy; }
 $applied = 0;
 dummy(); dummy();
 if($] < 5.008) {
-ok(1, "47 # skip does not work with perl prior to 5.8");
+ok(1, 47, " # skip does not work with perl prior to 5.8");
 } else {
 ok( $applied == 2, 47 );
 }
@@ -176,7 +179,7 @@ eval {
 };
 my $match = $@ =~ /^Won't be able to apply END handler/; 
 if($] < 5.008) {
-ok(1,"52 # Skip, no difference between lexical handlers and normal handlers prior to 5.8");
+ok(1,52 ,"# Skip, no difference between lexical handlers and normal handlers prior to 5.8");
 } else {
 ok( $match, 52 );
 }