[Module-build-checkins] Module-Build/lib/Module/Build Authoring.pod,1.29,1.30 Notes.pm,1.10,1.11

[Ken W. <kwi...@us...>]

Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6089/lib/Module/Build

Modified Files:
	Authoring.pod Notes.pm 
Log Message:
Make notes(key, val) return the new value

Index: Authoring.pod
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Authoring.pod,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -d -r1.29 -r1.30
--- Authoring.pod	22 Jan 2006 02:30:44 -0000	1.29
+++ Authoring.pod	30 Jan 2006 23:14:25 -0000	1.30
@@ -1079,7 +1079,7 @@
 arguments, C<notes()> returns the entire hash of notes.  With one argument,
 C<notes($key)> returns the value associated with the given key.  With two
 arguments, C<notes($key, $value)> sets the value associated with the given key
-to C<$value>.
+to C<$value> and returns the new value.
 
 The lifetime of the C<notes> data is for "a build" - that is, the
 C<notes> hash is created when C<perl Build.PL> is run (or when the

Index: Notes.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Notes.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- Notes.pm	4 Dec 2005 07:41:39 -0000	1.10
+++ Notes.pm	30 Jan 2006 23:14:25 -0000	1.11
@@ -36,7 +36,8 @@
   return $self->read($key) unless @_;
   
   my $value = shift;
-  return $self->write({ $key => $value });
+  $self->write({ $key => $value });
+  return $self->read($key);
 }
 
 sub has_data {