Permalink
Browse files

Documentation updates

  • Loading branch information...
1 parent 4523115 commit 7bc9a19d76398608d87d992609968618fc864148 @Leont committed Mar 24, 2010
Showing with 3 additions and 15 deletions.
  1. +0 −10 lib/Scope/OnExit.pm
  2. +3 −5 lib/Scope/OnExit.xs
View
@@ -58,7 +58,6 @@ You can find documentation for this module with the perldoc command.
perldoc Scope::OnExit
-
You can also look for information at:
=over 4
@@ -81,20 +80,11 @@ L<http://search.cpan.org/dist/Scope-OnExit>
=back
-
=head1 COPYRIGHT & LICENSE
Copyright 2009 Leon Timmermans, all rights reserved.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
-=head1 SEE ALSO
-
-=over 4
-
-=item * L<B::Hooks::EndOfScope> implements something similar in a rather different way.
-
-=back
-
=cut
View
@@ -2,7 +2,6 @@
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
-#include "ppport.h"
#ifndef SAVEDESTRUCTOR_X
#define SAVEDESTRUCTOR_X SAVEDESTRUCTOR
@@ -11,9 +10,9 @@ static void scope_exit(void* block) {
#else
static void scope_exit(pTHX_ void* block) {
#endif
- dSP;
- PUSHMARK(SP);
- call_sv(block, G_VOID | G_DISCARD | G_NOARGS | G_EVAL | G_KEEPERR);
+ dSP;
+ PUSHMARK(SP);
+ call_sv(block, G_VOID | G_DISCARD | G_NOARGS | G_EVAL | G_KEEPERR);
SvREFCNT_dec(block);
}
@@ -28,4 +27,3 @@ on_scope_exit(block)
SvREFCNT_inc(block);
SAVEDESTRUCTOR_X(scope_exit, block);
ENTER;
-

0 comments on commit 7bc9a19

Please sign in to comment.