develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r33641 - branches/testparrottest/t/perl/testlib

From:
jkeenan
Date:
December 7, 2008 18:54
Subject:
[svn:parrot] r33641 - branches/testparrottest/t/perl/testlib
Message ID:
20081208025427.A408DCB9AF@x12.develooper.com
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



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About