Re: IO::Socket::SSL & Net::Websocket::Server Question

I'm not sure it will work in your case, but have you tried to clean out the IO::Socket::SSL object? From "perldoc -q clear": Specifically look at the
Symbol::delete_package() function .

Found in /usr/lib/perl5/5.20.0/pod/perlfaq7.pod
  How do I clear a package?
    Use this code, provided by Mark-Jason Dominus:

        sub scrub_package {
            no strict 'refs';
            my $pack = shift;
            die "Shouldn't delete main package"
                if $pack eq "" || $pack eq "main";
            my $stash = *{$pack . '::'}{HASH};
            my $name;
            foreach $name (keys %$stash) {
                my $fullname = $pack . '::' . $name;
                # Get rid of everything with that name.
                undef $$fullname;
                undef @$fullname;
                undef %$fullname;
                undef &$fullname;
                undef *$fullname;
            }
        }

# Or, if you're using a recent release of Perl, you can just use the
# Symbol::delete_package() function instead.
[download]

I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku ................... flash japh

Comment on Re: IO::Socket::SSL & Net::Websocket::Server Question Download Code

Replies are listed 'Best First'.
Re^2: IO::Socket::SSL & Net::Websocket::Server Question by Anonymous Monk on Jul 29, 2014 at 17:50 UTC
But the globs numbers still wont be reset to 0, as you saw :)	[reply]
Re^3: IO::Socket::SSL & Net::Websocket::Server Question by noxxi (Pilgrim) on Jul 29, 2014 at 19:45 UTC
Symbol::gensym() which is used here just uses a global counter to make sure to never create the same symbol twice. So even if the previous symbols are no longer valid it will not reset the counter. No need to worry.	[reply]