cvsuser 04/12/04 11:23:44
Modified: t/pmc perlhash.t
Log:
Minor addition/typo fix (still passes)
Revision Changes Path
1.50 +5 -2 parrot/t/pmc/perlhash.t
Index: perlhash.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/perlhash.t,v
retrieving revision 1.49
retrieving revision 1.50
diff -u -r1.49 -r1.50
--- perlhash.t 4 Dec 2004 08:47:02 -0000 1.49
+++ perlhash.t 4 Dec 2004 19:23:44 -0000 1.50
@@ -1,7 +1,7 @@
#! perl
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: perlhash.t,v 1.49 2004/12/04 08:47:02 leo Exp $
+# $Id: perlhash.t,v 1.50 2004/12/04 19:23:44 rubys Exp $
=head1 NAME
@@ -1192,7 +1192,7 @@
three
OUTPUT
-output_is(<< 'CODE', << 'OUTPUT', "check wether interface is done");
+output_is(<< 'CODE', << 'OUTPUT', "check whether interface is done");
##PIR##
.sub _main
.local pmc pmc1
@@ -1224,6 +1224,9 @@
shift P2, P1
print P2
print "\n"
+ unless P1 goto ok
+ print "Surprise!\n"
+ok:
end
.end
CODE
