strings and numbers
am 30.07.2005 11:28:24 von les_andreyHi,
Please, tell me is it a bug or it works properly:
We have Perl code:
use WIN32::API;
my $ref=Win32::API->new('Test_Dll.dll','TestParamMY','PP','N');
my ($test1,$test2) = ('Test_Dll.dll','TestParamMY');
$test1>10;
print $test1."\n";
$ref->Call( $test1, $test2);
Where TestParamMY (C code):
TEST_DLL_API
PDH_FUNCTION TestParamMY( IN LPCSTR szTest1, IN LPCSTR
szTest2){
printf("%s, %s", szTest1, szTest2);
return 1;
}
output:
Test_Dll.dll, Test_Dll.dll
(null), TestParamMY
Modified:
use WIN32::API;
my $ref=Win32::API->new('Test_Dll.dll','TestParamMY','PP','N');
my ($test1,$test2) = ('Test_Dll.dll','TestParamMY');
#######$test1>10;
print $test1."\n";
$ref->Call( $test1, $test2);
Output:
Test_Dll.dll, Test_Dll.dll
Test_Dll.dll, TestParamMY
Thanks,
Andrew