[ic] Usertag return value

[Peter]

On 02/12/2009 06:52 PM, Grant wrote:
>>>> $return= $image->Write(filename=>'/file/location/'.$name.'_image.jpg')
>>>> or return 0;
>>>> $Tag->log("1: return=$return error=$!");
>>>> $return= chmod(0644,"/file/location/".$name."_image.jpg") or return 0;
>>>> $Tag->log("2: return=$return error=$!");
>> Why not write it like this:
>>
>> return 0
>>   if ! $image->Write(filename=>'/file/location/'.$name.'_image.jpg');
>>
>> return 0
>>   if ! chmod(0644,"/file/location/".$name."_image.jpg");
> 
> I tried this with the same results.  The first 3 commands execute, the
> last 3 commands don't execute, and the usertag exits with '0'.  If I
> remove:
> 
> return 0
>   if !
> 
> everything executes, but I don't get the '0' in case of failure.

So, you want all commands to execute regardless and the tag to return 0
if any command fails?

ok, do it this way, then:

my $retval = 1;
command_1 or $retval = 0;
command_2 or $retval = 0;
command_3 or $retval = 0;
...
command_n or $retval = 0;

return $retval;



Peter