[Moscow.pm] Defined or не работает

[Nikolay Mishin]

Да, я опять лапухнулся, use Modern::Perl; (дает  и warnings!)
спасибо!, все работает

use Modern::Perl;
my $t;
my $c='plus';
my $d='minus';
$t //= 'test';
$c =$c // 'test';
$d //= 'test';

main($t);
main($c);
main($d);

sub main{
say 'Hi '.$_[0];
}

sub test{
..
}

my $test=1;
say $c when $test>0;

05.01.2012, 15:42, "Jack of Shadows" <somerandomlogin на gmail.com>:
> Угу, а вот если сделать use warnings, то оно сразу бы сказало, что
> "variable redefined", и не пришлось бы писать в группу :-Р
>
> On Thu, Jan 5, 2012 at 1:23 PM, Andrew Shitov <andy на shitov.ru> wrote:
>
>>  Потому что my.
>>
>>  2012/1/5 Nikolay Mishin <mi на ya.ru>:
>>>  Hi Moscow-pm,
>>>
>>>  почему в 3-м варианте происходит присвоение переменной $d значения 'test',
>>>  ведь она же defined? , а утверждается, что
>>>  $d //= 'test';  есть краткая запись от
>>>  $d = $d // 'test';
>>>
>>>  use 5.010;
>>>  my $t;
>>>  my $c='plus';
>>>  my $d='minus';
>>>  my $t //= 'test';      #1
>>>  my $c =$c // 'test';#2
>>>  my $d //= 'test';     #3
>>>
>>>  main($t);
>>>  main($c);
>>>  main($d);
>>>
>>>  sub main{
>>>  say 'Hi '.$_[0];
>>>  }
>>>
>>>  sub test{
>>>  ..
>>>  }
>>>
>>>  --
>>>  Nikolay Mishin
>>>  --
>>>  Moscow.pm mailing list
>>>  moscow-pm на pm.org | http://moscow.pm.org
>>  --
>>  Andrew Shitov
>>  ______________________________________________________________________
>>  andy на shitov.ru | http://shitov.ru
>>  --
>>  Moscow.pm mailing list
>>  moscow-pm на pm.org | http://moscow.pm.org
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org

--
Nikolay Mishin