diff options
Diffstat (limited to 'perl_checker.src/test')
| -rw-r--r-- | perl_checker.src/test/suggest_better.t | 3 | ||||
| -rw-r--r-- | perl_checker.src/test/various_errors.t | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/perl_checker.src/test/suggest_better.t b/perl_checker.src/test/suggest_better.t index 4b8d2d5..e98e64f 100644 --- a/perl_checker.src/test/suggest_better.t +++ b/perl_checker.src/test/suggest_better.t @@ -100,3 +100,6 @@ $xxx ? $yyy : () you may use if_() here beware that the short-circuit semantic of ?: is not kept if you want to keep the short-circuit behaviour, replace () with @{[]} and there will be no warning anymore +system(qq(foo "$xxx")) instead of quoting parameters you should give a list of arguments + +system("mkdir", $xxx) you can replace system("mkdir ...") with mkdir(...) diff --git a/perl_checker.src/test/various_errors.t b/perl_checker.src/test/various_errors.t index f9c4089..dfac926 100644 --- a/perl_checker.src/test/various_errors.t +++ b/perl_checker.src/test/various_errors.t @@ -39,8 +39,6 @@ pop @l, 1 pop is expecting an array and nothing e pop $xxx pop is expecting an array and nothing else -system(qq(foo "$xxx")) instead of quoting parameters you should give a list of arguments - my (@l2, $xxx) = @l; @l2 takes all the arguments, $xxx is undef in any case $bad undeclared variable $bad |