return $id from Mp::Session::generate_unique_id - bug 14124

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@374 48953598-375a-da11-a14b-00016c27c3ee

diff --git a/Changes b/Changes
index c5192b384b99a641b3eae46790dba550a063d388..aad9d2846d97a4ac013d44fed79467027afedd27 100644 (file)
--- a/Changes
+++ b/Changes
@@ -9,6 +9,7 @@ For information about current developments and future releases, see:
     Template xhtml validation (bug 13975)
     Simplified Net::Amazon example (bug 14073)
     Apache2 fix in Apache::MVC (bug 13888)
+    Maypole::Session::generate_unique_id() now returns the id (bug 14124)
 
 2.10 Tue 19 Jul 2005
     Multiple Template Paths added ( http://rt.cpan.org/NoAuth/Bug.html?id=13447 )

diff --git a/lib/Maypole/Session.pm b/lib/Maypole/Session.pm
index 309ff38e601e8fd9bac1959ea399fa63f5dfde82..cde28dcb1fd7f69cd89499c173aaf8a225ad4553 100644 (file)
--- a/lib/Maypole/Session.pm
+++ b/lib/Maypole/Session.pm
@@ -35,7 +35,7 @@ our $VERSION = 0.01;
 sub generate_unique_id {
     my $length = shift || 32;
     my $id = substr(Digest::MD5::md5_hex(Digest::MD5::md5_hex(time(). {}. rand(). $$)), 0, $length);
-    return;
+    return $id;
 }