Index: [Article Count Order] [Thread]

Date:  Tue, 17 Feb 2004 13:29:56 +0900 (JST)
From:  Masaru Yokoi <masaru (at mark) turbolinux.co.jp>
Subject:  [coba-o:00388] Re: [Installer] Release alpha version
To:  coba-o (at mark) open.cobaltqube.org
Message-Id:  <20040217.132956.85412023.masaru (at mark) turbolinux.co.jp>
In-Reply-To:  <040214093204.M0219214 (at mark) mfc.bakkers.gr.jp>
References:  <402B22D6.8090803 (at mark) turbolinux.co.jp>	<040214093204.M0219214 (at mark) mfc.bakkers.gr.jp>
X-Mail-Count: 00388

ターボリナックスの横井です。

From: Yutaka Yasuda <yasuda (at mark) mfc.bakkers.gr.jp>
Subject: [coba-o:00377] Re: [Installer] Release alpha version
Date: Sat, 14 Feb 2004 09:32:04 +0900

> えらい細かいところまでいじったはりますかひょっとして。。。。。(@_@!)
> 
> --- cce/client/perl/CCE.pm.orig	2003-07-18 00:21:45.000000000 +0900
> +++ cce/client/perl/CCE.pm	2004-01-21 11:57:07.000000000 +0900
> @@ -171,9 +171,11 @@
>  	if (ref($text) eq "ARRAY") {
>  		$text = CCE->array_to_scalar(@$text);
>  	}
> -	@pattern = split(//,$text);
> -
> -	if (!defined($text)) { $text = ""; }
> +	if (defined($text)) {
> +	  	@pattern = split(//,$text);
> +	} else {
> +		return "\"\"";
> +	}
>  	if ($text =~ m/^[a-zA-Z0-9_]+$/) {
>  		return $text;
>  	}
> 
> // で split して無かった場合、 NULL が返るより "" が返る方が良い、
> って感じなのかなあ。。(よく見てない&perlはほとんど知らない。。)

3週間前のことなので、記憶がアヤフヤなのですが…。

CCE.pm は、 perl-5.6.1 で use strict したときに いくつかの箇所で
warning が出ていたので、その部分を書きなおしたはずなのです。 なにかが
use strict していたので。 なんでこの部分で warning が出たのかまでは覚え
ていないのですが。

# ほとんどの Perl script が use strict していないので、けっこう見落され
# がちかと。


-----
Masaru Yokoi