This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
add test for magic autovivification
authorM. J. T. Guy <mjtg@cus.cam.ac.uk>
Thu, 30 Jul 1998 12:18:15 +0000 (13:18 +0100)
committerGurusamy Sarathy <gsar@cpan.org>
Sun, 2 Aug 1998 06:37:06 +0000 (06:37 +0000)
Message-Id: <E0z1qit-0003O5-00@taurus.cus.cam.ac.uk>
Subject: Re: Perl5.005_01 failing to autovivify subroutine args

p4raw-id: //depot/maint-5.005/perl@1704

pod/perldiag.pod
t/cmd/subval.t

index ccef016..8d21323 100644 (file)
@@ -1538,7 +1538,7 @@ backwards.
 
 =item Modification of non-creatable hash value attempted, subscript "%s"
 
-(F) You tried to make a hash value spring into existence, and it couldn't
+(P) You tried to make a hash value spring into existence, and it couldn't
 be created for some peculiar reason.
 
 =item Module name must be constant
index 3c1ffb8..3c60690 100755 (executable)
@@ -33,7 +33,7 @@ sub foo6 {
     'true2' unless $_[0];
 }
 
-print "1..34\n";
+print "1..36\n";
 
 if (&foo1(0) eq '0') {print "ok 1\n";} else {print "not ok 1 $foo\n";}
 if (&foo1(1) eq 'true2') {print "ok 2\n";} else {print "not ok 2\n";}
@@ -177,3 +177,10 @@ sub iseof {
         eof UNIQ ? print "not ok $main'i\n" : print "ok $main'i\n";
  }
 }
+
+sub autov { $_[0] = 23 };
+
+my $href = {};
+print keys %$href ? 'not ' : '', "ok 35\n";
+autov($href->{b});
+print join(':', %$href) eq 'b:23' ? '' : 'not ', "ok 36\n";