From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 27 Feb 2000 22:27:46 +0000 (+0000)
Subject: typos in change#5293
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=33e06c89116da420821234eb364a70b215b00a8d;hp=479ba38336aaacaf3a7e00a4662d83e2dc833197;p=p5sagit%2Fp5-mst-13.2.git

typos in change#5293

p4raw-link: @5293 on //depot/perl: 479ba38336aaacaf3a7e00a4662d83e2dc833197

p4raw-id: //depot/perl@5294
---

diff --git a/lib/fields.pm b/lib/fields.pm
index 734cc0d..5a84e28 100644
--- a/lib/fields.pm
+++ b/lib/fields.pm
@@ -57,7 +57,7 @@ class fields using this pragma, then the operation is turned into an
 array access at compile time.
 
 The related C<base> pragma will combine fields from base classes and any
-fields declared using the C<fields> pragma.  This enables fields
+fields declared using the C<fields> pragma.  This enables field
 inheritance to work properly.
 
 Field names that start with an underscore character are made private to
@@ -85,9 +85,9 @@ This makes it possible to write a constructor like this:
 
     sub new {
 	my Critter::Sounds $self = shift;
-	$self = fields::new($class) unless ref $self;
+	$self = fields::new($self) unless ref $self;
 	$self->{cat} = 'meow';				# scalar element
-	@$self->{'dog','bird'} = ('bark','tweet');	# slice
+	@$self{'dog','bird'} = ('bark','tweet');	# slice
 	return $self;
     }