[svn:parrot] r46857 - in trunk: examples/io runtime/parrot/library t

[fperrad at svn.parrot.org]

Author: fperrad
Date: Fri May 21 13:12:44 2010
New Revision: 46857
URL: https://trac.parrot.org/parrot/changeset/46857

Log:
[LWP] call env_proxy()

Modified:
   trunk/examples/io/get.pir
   trunk/examples/io/post.pir
   trunk/runtime/parrot/library/distutils.pir
   trunk/t/harness.pir

Modified: trunk/examples/io/get.pir
==============================================================================
--- trunk/examples/io/get.pir	Fri May 21 13:01:32 2010	(r46856)
+++ trunk/examples/io/get.pir	Fri May 21 13:12:44 2010	(r46857)
@@ -27,6 +27,7 @@
     url = shift args
     .local pmc ua, response
     ua = new ['LWP';'UserAgent']
+    ua.'env_proxy'()
     ua.'show_progress'(1)
     response = ua.'get'(url, 'close' :named('Connection'))
     $S0 = response.'content'()

Modified: trunk/examples/io/post.pir
==============================================================================
--- trunk/examples/io/post.pir	Fri May 21 13:01:32 2010	(r46856)
+++ trunk/examples/io/post.pir	Fri May 21 13:12:44 2010	(r46857)
@@ -34,6 +34,7 @@
     .const string url = 'http://smolder.plusthree.com/app/projects/process_add_report/8'
     .local pmc ua, response
     ua = new ['LWP';'UserAgent']
+    ua.'env_proxy'()
     ua.'show_progress'(1)
     response = ua.'post'(url, contents :flat, 'form-data' :named('Content-Type'), 'close' :named('Connection'))
     $I0 = response.'code'()

Modified: trunk/runtime/parrot/library/distutils.pir
==============================================================================
--- trunk/runtime/parrot/library/distutils.pir	Fri May 21 13:01:32 2010	(r46856)
+++ trunk/runtime/parrot/library/distutils.pir	Fri May 21 13:12:44 2010	(r46857)
@@ -2155,6 +2155,7 @@
     load_bytecode 'LWP.pir'
     .local pmc ua, response
     ua = new ['LWP';'UserAgent']
+    ua.'env_proxy'()
     ua.'show_progress'(1)
     $S0 = kv['smolder_url']
     response = ua.'post'($S0, contents :flat, 'form-data' :named('Content-Type'), 'close' :named('Connection'))

Modified: trunk/t/harness.pir
==============================================================================
--- trunk/t/harness.pir	Fri May 21 13:01:32 2010	(r46856)
+++ trunk/t/harness.pir	Fri May 21 13:12:44 2010	(r46857)
@@ -365,6 +365,7 @@
     .const string url = 'http://smolder.plusthree.com/app/projects/process_add_report/8'
     .local pmc ua, response
     ua = new ['LWP';'UserAgent']
+    ua.'env_proxy'()
     ua.'show_progress'(1)
     response = ua.'post'(url, contents :flat, 'form-data' :named('Content-Type'), 'close' :named('Connection'))
     $I0 = response.'code'()