tange/parallel
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/parallel.git synced 2024-11-22 14:07:55 +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: New in this release:
* Implemented {//} for the input line with the basename removed (dirname).
* Using GNU Parallel with EC2. Thanks to Kevin Wu. * Using GNU Parallel with EC2. Thanks to Kevin Wu.
http://blog.kevinformatics.com/post/4970574713/interested-in-your-experience-using-gnu-parallel-in 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 = { 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
'{.}' => 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 'no_args' => undef, # Length of command with all replacement args removed
@ -4186,7 +4187,6 @@ sub unlock {
} }
# Keep perl -w happy # Keep perl -w happy
$::opt_x = $Semaphore::timeout = $Semaphore::wait = $::opt_shebang =
$::opt_x = $::opt_workdir = $Semaphore::timeout = $Semaphore::wait = 0;
$::opt_skip_first_line = $::opt_shebang = $Global::use = 0 ;

1
testsuite/wanted-results/test38
View file

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