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 {
|
