tange/parallel
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/parallel.git synced 2024-10-18 12:59:39 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

parallel: Passes testsuite

Browse source
This commit is contained in:
Ole Tange 2011-04-28 12:38:38 +02:00
parent a63e258bb1
commit cb9474a8f6
3 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
doc/release_new_version
View file

@ -165,6 +165,8 @@ available for download at: http://ftp.gnu.org/gnu/parallel/
New in this release:
* Implemented {//} for the input line with the basename removed (dirname).
* Using GNU Parallel with EC2. Thanks to Kevin Wu.
http://blog.kevinformatics.com/post/4970574713/interested-in-your-experience-using-gnu-parallel-in

6
src/parallel
View file

@ -3164,6 +3164,7 @@ sub new {
my $len = {
'{}' => 0, # Total length of all {} replaced with all args
'{/}' => 0, # Total length of all {/} replaced with all args
'{//}' => 0, # Total length of all {//} replaced with all args
'{.}' => 0, # Total length of all {.} replaced with all args
'{/.}' => 0, # Total length of all {/.} replaced with all args
'no_args' => undef, # Length of command with all replacement args removed
@ -4186,7 +4187,6 @@ sub unlock {
}
# Keep perl -w happy
$::opt_x = $::opt_workdir = $Semaphore::timeout = $Semaphore::wait =
$::opt_skip_first_line = $::opt_shebang = $Global::use = 0 ;
$::opt_x = $Semaphore::timeout = $Semaphore::wait = $::opt_shebang =
0;

1
testsuite/wanted-results/test38
View file

@ -2,3 +2,4 @@
### See if we get compile error
perl
### See if we read modules outside perllib
read(3, "#!/usr/bin/perl -w\n\n# open3 used"..., 4096) = 4096