From 88b93bea080061d68cd0faeee8032293d011d655 Mon Sep 17 00:00:00 2001
From: "B. Watson" <urchlay@slackware.uk>
Date: Tue, 9 Apr 2024 14:33:36 -0400
Subject: soxdial: add -Y/--no-random.

---
 soxdial | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/soxdial b/soxdial
index 924c958..0de46c9 100755
--- a/soxdial
+++ b/soxdial
@@ -83,6 +83,11 @@ Randomize the timing. Digit length (B<-l>), inter-digit timing
 specified. This does a pretty good impression of a human dialling a
 number manually.
 
+=item B<-Y>, B<--no-random>
+
+Disable randomized timing. This is the default; this option exists
+to turn off a prior B<-X>, B<--random> option.
+
 =item B<-S>, B<--stereo>
 
 Output stereo audio. The left and right channels will contain the same
@@ -532,6 +537,8 @@ for ($argc = 0; $argc < @ARGV; $argc++) {
 	} elsif(/^--?(?:X|random)$/) {
 		# sorry I had to use -X for this, -R was already taken.
 		$random = 1;
+	} elsif(/^--?(?:Y|no-random)$/) {
+		$random = 0;
 	} elsif(/^--?f(?:ast)?$/) {
 		$intertime /= 2;
 		$digittime /= 2;
-- 
cgit v1.2.3