From 57c4da78c1acfd622c760c5d44cdc9877bd4011f Mon Sep 17 00:00:00 2001 From: perry.werneck@gmail.com Date: Wed, 20 Nov 2013 18:38:55 +0000 Subject: [PATCH] Compatibilizando classe rexx com scripts antigos --- src/plugins/rx3270/rexx_methods.cc | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/plugins/rx3270/rexx_methods.cc b/src/plugins/rx3270/rexx_methods.cc index e81ae54..a7b1767 100644 --- a/src/plugins/rx3270/rexx_methods.cc +++ b/src/plugins/rx3270/rexx_methods.cc @@ -44,11 +44,13 @@ /*--[ Implement ]------------------------------------------------------------------------------------*/ -RexxMethod1(int, rx3270_method_init, CSTRING, type) +RexxMethod1(int, rx3270_method_init, OPTIONAL_CSTRING, type) { // Set session class in rexx object try { + if(!(type && *type)) + type = ""; RexxPointerObject sessionPtr = context->NewPointer(session::create(type)); context->SetObjectVariable("CSELF", sessionPtr); } -- libgit2 0.21.2