diff options
| author | Jonathan "Duke" Leto <jonathan@leto.net> | 2011-01-09 01:21:56 -0800 |
|---|---|---|
| committer | Jonathan "Duke" Leto <jonathan@leto.net> | 2011-01-09 01:21:56 -0800 |
| commit | 969b62c1be0b8e3b548ad1ba395d09f6393b89b8 (patch) | |
| tree | d3b406f7dd0da5e0a37539ffd7eea683b91c8a42 | |
| parent | Function must be defined before it is used (diff) | |
| download | jitterbug-969b62c1be0b8e3b548ad1ba395d09f6393b89b8.tar.gz | |
Attempt grab perl version correctly
| -rwxr-xr-x | scripts/capsule.sh | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/scripts/capsule.sh b/scripts/capsule.sh index 45188f0..818dcf4 100755 --- a/scripts/capsule.sh +++ b/scripts/capsule.sh @@ -38,17 +38,17 @@ if [ $use_perlbrew ]; then source $HOME/perl5/perlbrew/etc/bashrc for perl in $HOME/perl5/perlbrew/perls/perl-5.* do - theperl="$(basename $perl)" + theperl="$(perl -e \"print $]\")" + logfile="$report_path/perl-$theperl.txt" echo ">perlbrew switch $theperl" perlbrew switch $theperl # TODO: check error condition - logfile="$report_path/$theperl.txt" jitterbug_build done else - theperl="$(basename perl -e \"print $]\")" - logfile="$report_path/$theperl.txt" + theperl="$(perl -e \"print $]\")" + logfile="$report_path/perl-$theperl.txt" jitterbug_build fi |