Project: Pugs

Revision: 22151

Author: moritz

Date: 04 Sep 2008 10:02:27

• /t/spec/S04-declarations/my.t

  ......	@@ -46,11 +46,11 @@
  46	46
  47	47	{
  48	48	my $test = "value should still be set for arg, even if there's a later my";
  49		sub foo (*%p) {
  	49	sub foo2 (*%p) {
  50	50	is(%p<a>, 'b', $test);
  51	51	my %p;
  52	52	}
  53		foo(a => 'b');
  	53	foo2(a => 'b');
  54	54	}
  55	55
  56	56	my $a = 1;