revert pipe argument list conversion to scalar

briandfoy · Jan 6, 2025 · 3d83aeb · 3d83aeb
1 parent bba92da
commit 3d83aeb
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/bin/patch b/bin/patch
@@ -912,8 +912,7 @@ sub apply {
 
     # Pipe to ed.
     eval {
-        my $cmd =  'ed -s ' . $self->{'i_file'};
-        open ED, '|-', $cmd or die "Couldn't fork ed: $!";
+        open ED, '|-', 'ed', '-s', $self->{'i_file'} or die "Couldn't fork ed: $!";
         print ED map @$_, @cmd               or die "Couldn't print ed: $!";
         print ED "wq $self->{o_file}\n"     or die "Couldn't print ed: $!";
         close ED                             or die "Couldn't close ed: $?";