From 84b526a2f31a75e3bcade49ee26bbe9fc97b4384 Mon Sep 17 00:00:00 2001
From: Michael Mikonos <127171689+mknos@users.noreply.github.com>
Date: Mon, 6 Jan 2025 11:31:01 +0800
Subject: [PATCH] unexpand: tweak usage string

* When specifying multiple tabstops separated by commas, spaces are not allowed after the comma
* Remove spaces after comma from usage string to avoid confusion
* Also remove redundant copy of ARGV as done in expand commit d2196f96f69d5cb1b1c0774c6d56c73d9773bf19
---
 bin/unexpand | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/bin/unexpand b/bin/unexpand
index 2d8a64aa..12596fd2 100755
--- a/bin/unexpand
+++ b/bin/unexpand
@@ -37,7 +37,6 @@ my $Program = basename($0);
 my $tabstop = 8;
 my $opt_a = 0;
 my @tabstops;
-my @files;
 
 while (@ARGV && $ARGV[0] =~ /\A\-(.+)/) {
     my $val = $1;
@@ -53,12 +52,11 @@ while (@ARGV && $ARGV[0] =~ /\A\-(.+)/) {
     }
     shift @ARGV;
 }
-@files = @ARGV;
 
 # $tabstop is used only if multiple tab stops have not been defined
 $tabstop = $tabstops[0] if scalar @tabstops == 1;
 
-for my $file (@files) {
+for my $file (@ARGV) {
     my $in;
     unless (open $in, '<', $file) {
 	warn "$Program: couldn't open '$file' for reading: $!'\n";
@@ -69,7 +67,7 @@ for my $file (@files) {
     }
     close $in;
 }
-unless (@files) {
+unless (@ARGV) {
     while (<>) {
 	unexpand_line($_);
     }
@@ -77,7 +75,7 @@ unless (@files) {
 exit EX_SUCCESS;
 
 sub usage {
-    warn "usage: $Program [-a] [-tabstop] [-tab1, tab2, ...] [file ...]\n";
+    warn "usage: $Program [-a] [-tabstop] [-tab1,tab2,...] [file ...]\n";
     exit EX_FAILURE;
 }
 
@@ -128,7 +126,7 @@ unexpand - convert spaces to tabs
 
 =head1 SYNOPSIS
 
-unexpand [B<-a>] [B<-tabstop>] [B<-tab1, tab2, ...>] [B<file> ...]
+unexpand [B<-a>] [B<-tabstop>] [B<-tab1,tab2,...>] [B<file> ...]
 
 =head1 DESCRIPTION