[svn:mod_parrot] r260 - in mod_parrot/trunk: build/lib/Generator lib/Apache t/lib

Author: jhorwitz
Date: Mon Sep 24 14:55:22 2007
New Revision: 260

Modified:
   mod_parrot/trunk/build/lib/Generator/ApacheConstants.pm
   mod_parrot/trunk/lib/Apache/RequestRec.pir
   mod_parrot/trunk/t/lib/handlers.pir

Log:
replace type constants with quoted types for all "new" opcodes


Modified: mod_parrot/trunk/build/lib/Generator/ApacheConstants.pm
==============================================================================
--- mod_parrot/trunk/build/lib/Generator/ApacheConstants.pm	(original)
+++ mod_parrot/trunk/build/lib/Generator/ApacheConstants.pm	Mon Sep 24 14:55:22 2007
@@ -107,7 +107,7 @@
 .sub _init_const_table
     .local pmc ap_constants
 
-    ap_constants = new .OrderedHash
+    ap_constants = new 'OrderedHash'
 
     # Handler Responses
 %%HANDLER%%

Modified: mod_parrot/trunk/lib/Apache/RequestRec.pir
==============================================================================
--- mod_parrot/trunk/lib/Apache/RequestRec.pir	(original)
+++ mod_parrot/trunk/lib/Apache/RequestRec.pir	Mon Sep 24 14:55:22 2007
@@ -86,7 +86,7 @@
     r = request_rec( )
     setattribute self, 'r', r
 
-    pmc_notes = new .Hash
+    pmc_notes = new 'Hash'
     setattribute self, 'pmc_notes', pmc_notes
 .end
 
@@ -242,7 +242,7 @@
     getattribute r, self, 'r'
     request_rec_get_basic_auth_pw = get_root_global [ '_modparrot'; 'NCI' ], 'request_rec_get_basic_auth_pw'
 
-    results = new .Array
+    results = new 'Array'
     results = 2
     status = request_rec_get_basic_auth_pw( r, results )
     status = results[0]
@@ -361,7 +361,7 @@
     notes = request_rec_notes( r )
 
     $P0 = get_class [ 'APR'; 'Table' ]
-    $P1 = new .Hash
+    $P1 = new 'Hash'
     $P1['apr_table'] = notes
     t = new $P0, $P1
 
@@ -434,7 +434,7 @@
     request_rec_prev = get_root_global [ '_modparrot'; 'NCI' ], 'request_rec_prev'
     $P0 = get_class [ 'Apache'; 'RequestRec' ]
     $P1 = request_rec_prev( r )
-    $P2 = new .Hash
+    $P2 = new 'Hash'
     $P2['r'] = $P1
     prev_r = new $P0, $P2
 

Modified: mod_parrot/trunk/t/lib/handlers.pir
==============================================================================
--- mod_parrot/trunk/t/lib/handlers.pir	(original)
+++ mod_parrot/trunk/t/lib/handlers.pir	Mon Sep 24 14:55:22 2007
@@ -35,7 +35,7 @@
     .param pmc r
     .local pmc ap_const
 
-    $P0 = new .String
+    $P0 = new 'String'
     $P0 = "Testing 123\n"
     r.'write'($P0, 12)