Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Cleaned up old TODO pod for a mem leak fix which is in perl 5.12.2 co…

…re now.
  • Loading branch information...
commit f52e0083303dd3dc979f247739f7250aa43bb19c 1 parent a3e206f
@kthakore kthakore authored
Showing with 0 additions and 30 deletions.
  1. +0 −30 lib/SDL.pm
View
30 lib/SDL.pm
@@ -90,34 +90,4 @@ sub set_error {
SDL::set_error_real( sprintf( $format, @arguments ) );
}
-=pod
-#TODO: Make this unload correct for some mem leak fix
-END{
- return if ($^O =~ 'VMS' || $^O =~ 'darwin');
- my $first = pop( @SDL::Internal::Loader::LIBREFS);
- my $dont_unload = '(^'.$first.'$';
-
- $dont_unload .= '|^'.$_.'$' foreach @SDL::Internal::Loader::LIBREFS;
-
- $dont_unload .= ')';
-
- warn $dont_unload;
-
- foreach my $libref ( reverse @DynaLoader::dl_librefs)
- {
- unless ($libref =~ /$dont_unload/)
- {
- print STDERR 'unloading '.$libref.' ';
- DynaLoader::dl_unload_file($libref);
-
- }
- else
- {
- print STDERR 'not unloading '.$libref.' ';
-
- }
- }
-}
-=cut
-
1;
Please sign in to comment.
Something went wrong with that request. Please try again.