# NOTE: Based on code by Kevin Lenzo & Patrick Cole (c) 1997
#
-if (&IsParam("useStrict")) { use strict; }
+#use strict;
sub help {
my $topic = shift;
if (exists $help{$topic}) {
foreach (split /\n/, $help{$topic}) {
- &performStrictReply($_);
+ &pSReply($_);
}
} else {
&pSReply("no help on $topic. Use 'help' without arguments.");
# generate a hash list.
foreach (@files) {
- if (/^(.*\/)(.*?)$/) {
- $files{$1}{$2} = 1;
- }
+ next unless /^(.*\/)(.*?)$/;
+
+ $files{$1}{$2} = 1;
}
@files = (); # reuse the array.