diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2002-12-05 23:24:35 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2002-12-05 23:24:35 +0000 |
commit | c6bad2017a04dd8d10ddc7e38bf78bfd121b52c4 (patch) | |
tree | 47f048ea0d047a659f051fbc24b7bfb0e89f16d4 /perl_checker.src/perl_checker.ml | |
parent | d1609de77aeb01a784950d707354770bde196782 (diff) | |
download | perl_checker-c6bad2017a04dd8d10ddc7e38bf78bfd121b52c4.tar perl_checker-c6bad2017a04dd8d10ddc7e38bf78bfd121b52c4.tar.gz perl_checker-c6bad2017a04dd8d10ddc7e38bf78bfd121b52c4.tar.bz2 perl_checker-c6bad2017a04dd8d10ddc7e38bf78bfd121b52c4.tar.xz perl_checker-c6bad2017a04dd8d10ddc7e38bf78bfd121b52c4.zip |
perl_checker now checks usage of $_
Diffstat (limited to 'perl_checker.src/perl_checker.ml')
-rw-r--r-- | perl_checker.src/perl_checker.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl_checker.src/perl_checker.ml b/perl_checker.src/perl_checker.ml index bf4853d..489042a 100644 --- a/perl_checker.src/perl_checker.ml +++ b/perl_checker.src/perl_checker.ml @@ -78,7 +78,7 @@ let parse_options = let usage = "Usage: perl_checker [-v] [-q] <files>\nOptions are:" in Arg.parse options (lpush args_r) usage; - let args = if !args_r = [] then (Unix.chdir "/home/pixel/cooker/gi/perl-install" ; ["/home/pixel/cooker/gi/perl-install/t.pl"]) else !args_r in + let args = if !args_r = [] then ["../t.pl"] else !args_r in let required_packages, state = collect_withenv parse_file default_state args in let state = parse_required_packages state required_packages in |