From: Ian Jackson Date: Sat, 21 Feb 2015 11:33:14 +0000 (+0000) Subject: regress: Remove update-extra-select conversion script X-Git-Tag: adns-1.5.1~11 X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=adns.git;a=commitdiff_plain;h=cb7bb8e2592297d4de88fded6b4bcf995334ee29 regress: Remove update-extra-select conversion script This script was a one-off. Signed-off-by: Ian Jackson --- diff --git a/regress/update-extra-select b/regress/update-extra-select deleted file mode 100755 index 0325309..0000000 --- a/regress/update-extra-select +++ /dev/null @@ -1,27 +0,0 @@ -#!/usr/bin/perl -wp -use strict; - -our ($fd, $timeadj); - -BEGIN { - $fd = -1; -} - -if (m/^ connect fd=(\d+) /) { - $fd=$1; next; -} - -if (m/^ read fd=$fd buflen=1$/) { - die if $timeadj; - print - " select max=".($fd+1)." rfds=null wfds=[$fd]". - " efds=null to=0.000000\n". - " select=1 rfds=null wfds=[$fd] efds=null\n". - "+0.000001\n"; - $timeadj = -0.000001; -} - -if (m/^ \+([0-9.]+)$/ && $timeadj) { - $_ = sprintf " +%.6f\n", $1 + $timeadj; - $timeadj = 0; -}