[svn:mod_parrot] r229 - mod_parrot/trunk/t/src

[email protected]
Newsgroups perl.cvs.mod_parrot
Message-ID <[email protected]>
Author: jhorwitz
Date: Sun Jul 29 10:54:28 2007
New Revision: 229

Added:
   mod_parrot/trunk/t/src/nci_sig_test.pir

Log:
forgot to add new PIR nci_sig_test


Added: mod_parrot/trunk/t/src/nci_sig_test.pir
==============================================================================
--- (empty file)
+++ mod_parrot/trunk/t/src/nci_sig_test.pir	Sun Jul 29 10:54:28 2007
@@ -0,0 +1,14 @@
+# $Id
+
+.sub main :main
+    .param pmc args
+    .local string sig
+    .local pmc nul
+
+    null nul
+    sig = args[1]
+
+    # this will panic if sig is not found, but it should be a fatal test
+    # failure anyway, so no big deal
+    dlfunc $P0, nul, "Parrot_new", sig
+.end
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.