疑問：mod_perl と 後置 if と my - makogの日記

#!/usr/bin/perl use strict; use warnings; { my $flg; { my $cnt = 1 if ( $flg ); $cnt++; print "Content-type: text/plain\n\n"; print join( ', ', $cnt, $$, \$cnt ); } } 1; 上記のような CGI を mod_perl（ModPerl::Registry）上で動かすと、Apacheのプロセス毎に $cnt がカウントアップされます。 なぜでしょう？？？ 誰か教えてください。 $cnt はレキシカルスコープなはずですよね。スコープが外れた {} の後で $cnt を使うと怒られます。なのに、なぜかグローバル変数のように共有されてしまいます。 そもそも、my $cnt = 1 if ( $flg ); はどのように動作するのでしょう

[vkgtaro]

mjk w

[dealforest]

後置 if で my の宣言した時の振る舞いは未定義 http://perldoc.jp/docs/perl/5.10.0/perlsyn.pod

[kits]

(コメントより)perlsyn 「(my $x if ... のような) 条件構造やループ構造で修飾された my 文の振る舞いは未定義です」

[nihen]

うわ、ほんとだなにこれこわい / perlsyn(http://perldoc.jp/docs/perl/5.10.0/perlsyn.pod)に後置ifのような文修飾でmy使うべからずってかいてありますね。