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

[maypole.git] / lib / Maypole / Session.pm

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;
 }