Merge pull request #188 from mknos/ed-dash-filename

ed refuses to open filename with a dash
briandfoy · Jul 7, 2023 · b137ede · b137ede
2 parents 972b336 + 2230437
commit b137ede
Showing 1 changed file with 6 additions and 9 deletions.
diff --git a/bin/ed b/bin/ed
@@ -123,15 +123,12 @@ if ($opt_v) {
     $EXTENDED_MESSAGES = 1;
 }
 
-print("@ARGV\n") if @ARGV;
-&Usage if ($#ARGV > 1);
-
-while ($_ = shift) {
-    if (/-/) {
-        $SupressCounts = 1;
-    } else {
-        $args[0] = $_;
-    }
+&Usage if scalar(@ARGV) > 1;
+my $fname = shift;
+if ($fname eq '-') {
+    $SupressCounts = 1;
+} else {
+    $args[0] = $fname;
 }
 
 if ($EXTENDED_MESSAGES) {