blob: ca68d4065e9c5396c42e5474933cbd6a9149b339 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
$NetBSD: patch-webnew_pl,v 1.2 2015/08/21 08:18:26 wiz Exp $
With modern perl, 'do getopts' doesnt work any longer.
--- webnew.pl.orig 2001-05-27 22:08:01.000000000 +0000
+++ webnew.pl
@@ -66,7 +66,7 @@ $base = 'http://localhost/';
$opt_c = "text";
$opt_t = "What's new";
-do getopts('A:PRVac:de:inrt:vx');
+getopts('A:PRVac:de:inrt:vx');
if ($opt_V) {
print "webnew @WEBNEWVER@ (@WEBNEWDATE@)\n";
|
