diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2004-08-11 07:02:34 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2004-08-11 07:02:34 +0000 |
commit | 670835bee947e095d54f0bd15e53f6e98e48c26f (patch) | |
tree | 0853ab9d7dc1d57167443446b9811d2ad6c71a11 /perl_checker.src/test/suggest_better.t | |
parent | 5c2d0f2e92f7e340f80c8a448ac8183383a0b01f (diff) | |
download | perl_checker-670835bee947e095d54f0bd15e53f6e98e48c26f.tar perl_checker-670835bee947e095d54f0bd15e53f6e98e48c26f.tar.gz perl_checker-670835bee947e095d54f0bd15e53f6e98e48c26f.tar.bz2 perl_checker-670835bee947e095d54f0bd15e53f6e98e48c26f.tar.xz perl_checker-670835bee947e095d54f0bd15e53f6e98e48c26f.zip |
"$foo or $foo = ..." can be written "$foo ||= ..."
Diffstat (limited to 'perl_checker.src/test/suggest_better.t')
-rw-r--r-- | perl_checker.src/test/suggest_better.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/perl_checker.src/test/suggest_better.t b/perl_checker.src/test/suggest_better.t index 8d8cb37..be238a2 100644 --- a/perl_checker.src/test/suggest_better.t +++ b/perl_checker.src/test/suggest_better.t @@ -38,6 +38,8 @@ $o = xxx() if !$o; "$foo = ... if !$foo" can be written "$ $o = xxx() unless $o; "$foo = ... unless $foo" can be written "$foo ||= ..." +$o or $o = xxx(); "$foo or $foo = ..." can be written "$foo ||= ..." + $_ =~ s/xxx/yyy/ "$_ =~ s/regexp/.../" can be written "s/regexp/.../" $xxx =~ /^yyy$/ "... =~ /^yyy$/" is better written "... eq 'yyy'" |