Author: jkeenan Date: Sun Dec 7 18:54:24 2008 New Revision: 33641 Added: branches/testparrottest/t/perl/testlib/hello (contents, props changed)
Log: File used in testing case where file extension is missing. Added: branches/testparrottest/t/perl/testlib/hello ============================================================================== --- (empty file) +++ branches/testparrottest/t/perl/testlib/hello Sun Dec 7 18:54:24 2008 @@ -0,0 +1,20 @@ +# Copyright (C) 2001-2008, The Perl Foundation. +# $Id$ + + # Get @ARGV as a ResizableStringArray + get_params "0", P0 + + # Discard the program name + shift S0, P0 + + # Look for additional args + if P0, FOUND_EXTRA_ARG + print "Hello World\n" + end + +FOUND_EXTRA_ARG: + shift S1, P0 + print "Hello " + print S1 + print "\n" + end
