more pod patches

[p5sagit/p5-mst-13.2.git] / ext / attrs / attrs.pm

diff --git a/ext/attrs/attrs.pm b/ext/attrs/attrs.pm
index cec5ea5..6c50bea 100644 (file)
--- a/ext/attrs/attrs.pm
+++ b/ext/attrs/attrs.pm
@@ -1,9 +1,6 @@
 package attrs;
-require DynaLoader;
-use vars '@ISA';
-@ISA = 'DynaLoader';
+use XSLoader ();
 
-use vars qw($VERSION);
 $VERSION = "1.0";
 
 =head1 NAME
@@ -23,7 +20,7 @@ attrs - set/get attributes of a subroutine (deprecated)
 
 NOTE: Use of this pragma is deprecated.  Use the syntax
 
-    sub foo : locked, method { }
+    sub foo : locked method { }
 
 to declare attributes instead.  See also L<attributes>.
 
@@ -34,7 +31,7 @@ C<attrs::get> on a subroutine reference or name returns its list
 of attribute names. Notice that C<attrs::get> is not exported.
 Valid attributes are as follows.
 
-=over
+=over 4
 
 =item method
 
@@ -56,6 +53,6 @@ subroutine is entered.
 
 =cut
 
-bootstrap attrs $VERSION;
+XSLoader::load 'attrs', $VERSION;
 
 1;