diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-10-14 05:06:52 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-10-14 05:06:52 +0000 |
| commit | 7ec17262cd6bbda5ec69753ff27ab5d4f7493c5c (patch) | |
| tree | b2bcb95207c2725b62ca1e072d9984e9bcc5ba4e /perl_checker.src/test | |
| parent | 239f07fc8c33f6ebfcf5729b97f9db8b8b55e348 (diff) | |
| download | perl-MDK-Common-7ec17262cd6bbda5ec69753ff27ab5d4f7493c5c.tar perl-MDK-Common-7ec17262cd6bbda5ec69753ff27ab5d4f7493c5c.tar.gz perl-MDK-Common-7ec17262cd6bbda5ec69753ff27ab5d4f7493c5c.tar.bz2 perl-MDK-Common-7ec17262cd6bbda5ec69753ff27ab5d4f7493c5c.tar.xz perl-MDK-Common-7ec17262cd6bbda5ec69753ff27ab5d4f7493c5c.zip | |
suggest mkdir() instead of system("mkdir ...")
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 |