1.13

stevieb9 · Oct 12, 2022 · ceb208f · ceb208f
1 parent 7d571b3
commit ceb208f
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 2 deletions.
diff --git a/Changes b/Changes
@@ -1,6 +1,6 @@
 Revision history for Perl extension IPC::Shareable.
 
-1.13 UNREL
+1.13    2022-10-11
     - In singleton(), do a check whether class was sent in. There was a shifting
       issue if called with IPC::Shareable::singleton() as opposed to
       IPC::Shareable->singleton()

diff --git a/MANIFEST b/MANIFEST
@@ -9,6 +9,7 @@ CREDITS
 DISCLAIMER
 'docs/Shared Memory Configuration.txt'
 examples/new.pl
+ipc.pl
 lib/IPC/Shareable.pm
 lib/IPC/Shareable/SharedMem.pm
 Makefile.PL
@@ -45,6 +46,7 @@ t/67-exhaust_shm_slots.t
 t/75-graceful.t
 t/76-singleton.t
 t/77-singleton_warn.t
+t/78-singleton_class.t
 t/80-exceptions.t
 t/81-fork_dup_rand_keys.t
 t/82-sig_child_ignore.t

diff --git a/lib/IPC/Shareable.pm b/lib/IPC/Shareable.pm
@@ -726,7 +726,7 @@ sub _tie {
 
         if (! defined $exclusive) {
             if ($knot->attributes('warn')) {
-                my $key = sprintf("0x%X", $knot->_shm_key);
+                my $key = lc(sprintf("0x%X", $knot->_shm_key));
 
                 warn "Process ID $$ exited due to exclusive shared memory collision at segment/semaphore key '$key'\n";
             }