blob: 23ede5847aee9fd54955796c794713c543411122 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
From 8c77a16671969e2dbfa792553435800dd83cea24 Mon Sep 17 00:00:00 2001
From: Sergio Correia <sergio@correia.cc>
Date: Fri, 6 Dec 2013 04:19:26 -0300
Subject: [PATCH 2/2] make tests work
---
bin/raw2gp | 6 ++++--
bin/raw2xg | 6 ++++--
bin/raw2xg-sctp | 6 ++++--
3 files changed, 12 insertions(+), 6 deletions(-)
diff --git a/bin/raw2gp b/bin/raw2gp
index dd123a3..07778a0 100755
--- a/bin/raw2gp
+++ b/bin/raw2gp
@@ -21,8 +21,10 @@ can be generated with -s 0.01 -m 90.
END
};
-require 'getopts.pl';
-&Getopts('ags:m:ql') || usage;
+use Getopt::Std;
+#require 'getopts.pl';
+#&Getopts('ags:m:ql') || usage;
+getopts('ags:m:ql') || usage;
# calculate offsets. Do we need this?
# $offset = int($modulus / 10 + 1) * 10;
diff --git a/bin/raw2xg b/bin/raw2xg
index 02625c4..df42795 100755
--- a/bin/raw2xg
+++ b/bin/raw2xg
@@ -34,8 +34,10 @@ END
};
$usage = "usage: $progname [-a] [trace files...]\n";
-require 'getopts.pl';
-&Getopts('acefgds:m:n:qrplvt:xy') || usage;
+use Getopt::Std;
+#require 'getopts.pl';
+#&Getopts('acefgds:m:n:qrplvt:xy') || usage;
+getopts('acefgds:m:n:qrplvt:xy') || usage;
$c = 0;
@p = @pc = @pg = @a = @ac = @ae = @d = @lu = @ld = ();
diff --git a/bin/raw2xg-sctp b/bin/raw2xg-sctp
index 08dcf0f..3d3f789 100644
--- a/bin/raw2xg-sctp
+++ b/bin/raw2xg-sctp
@@ -26,8 +26,10 @@ END
};
$usage = "usage: $progname [-a] [trace files...]\n";
-require 'getopts.pl';
-&Getopts('aAfFs:m:n:qt:') || usage;
+use Getopt::Std;
+#require 'getopts.pl';
+#&Getopts('aAfFs:m:n:qt:') || usage;
+getopts('aAfFs:m:n:qt:') || usage;
$c = 0;
@pplus = @pminus = ();
--
1.8.4.2
|