5.002 beta 1

If you're adventurous, have a look at

    ftp://ftp.sems.com/pub/outgoing/perl5.0/perl5.002beta1.tar.gz

Many thanks to Andy for doing the integration.

Obviously, if you consult the bugs database, you'll note there are
still plenty of buglets that need fixing, and several enhancements that
I've intended to put in still haven't made it in (Hi, Tim and Ilya).
But I think it'll be pretty stable.  And you can start to fiddle around
with prototypes (which are, of course, still totally undocumented).

Packrats, don't worry too much about readvertising this widely.
Nowadays we're on a T1 here, so our bandwidth is okay.

Have the appropriate amount of jollity.

Larry

1 files changed, 7 insertions, 9 deletions

diff --git a/pod/perlbot.pod b/pod/perlbot.pod
index de2207a961..61a37266a2 100644
--- a/pod/perlbot.pod
+++ b/pod/perlbot.pod
@@ -199,11 +199,10 @@ relationships between objects.
 
 =head1 OVERRIDING SUPERCLASS METHODS
 
-The following example demonstrates how one might override a superclass
-method and then call the method after it has been overridden.  The
-Foo::Inherit class allows the programmer to call an overridden superclass
-method without actually knowing where that method is defined.
-
+The following example demonstrates how to override a superclass method and
+then call the overridden method.  The B<SUPER> pseudo-class allows the
+programmer to call an overridden superclass method without actually knowing
+where that method is defined.
 
 	package Buz;
 	sub goo { print "here's the goo\n" }
@@ -216,7 +215,6 @@ method without actually knowing where that method is defined.
 
 	package Foo;
 	@ISA = qw( Bar Baz );
-	@Foo::Inherit::ISA = @ISA;  # Access to overridden methods.
 
 	sub new {
 		my $type = shift;
@@ -225,15 +223,15 @@ method without actually knowing where that method is defined.
 	sub grr { print "grumble\n" }
 	sub goo {
 		my $self = shift;
-		$self->Foo::Inherit::goo();
+		$self->SUPER::goo();
 	}
 	sub mumble {
 		my $self = shift;
-		$self->Foo::Inherit::mumble();
+		$self->SUPER::mumble();
 	}
 	sub google {
 		my $self = shift;
-		$self->Foo::Inherit::google();
+		$self->SUPER::google();
 	}
 
 	package main;