[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [MacPerl] Callbacks not reliable?

On Thu, 14 Sep 2000 15:31:49 -0600, Keary Suska wrote:


>  $num =~ s/(\.\d+)//;        # remove decimal
># if the prior substitution fails
># $1 has a value from a previous match/sub!?
>  $dec = $1;

Yes. You want

	$num =~ s/(\.\d+)// and $dec = $1;

$1 and friends are only modified on a succesful match, which may or may
not be considered as a design error. It's faster the way it is now.

-- 
	Bart.

# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org