#! /usr/bin/perl
# infocon - Admin-Tool for InfoCon
-# Copyright (c) 1998-2003,2005-7 Martin Schulze <joey@infodrom.org>
+# Copyright (c) 1998-2003,2005-8 Martin Schulze <joey@infodrom.org>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
}
@categories = ();
+$term = undef;
sub sdate
{
@categories = get_categories unless @categories;
my @descriptions = get_descriptions;
+ $term = new Term::ReadLine '' unless $term;
+
$term->addhistory($_) foreach (@categories);
$term->addhistory($_) foreach (@descriptions);
exit 0;
}
-$term = new Term::ReadLine '';
$i = 0;
$opt_all = 0;
$opt_verbose = 0;