1
0
mirror of https://github.com/fspc/dswim.git synced 2025-02-22 00:23:28 -05:00

SWIM to DSWIM.

This commit is contained in:
freesource 2001-10-13 00:40:14 +00:00
parent f54509d9bc
commit 01c6d30354

14
swim
View File

@ -106,7 +106,7 @@ use Getopt::Long;
use SWIM::Conf; use SWIM::Conf;
use SWIM::Global; use SWIM::Global;
use SWIM::Library; use SWIM::Library;
my $version = "0.3.7"; my $version = "0.4.0";
# The MAIN # The MAIN
# First let's determine what options are being used. # First let's determine what options are being used.
@ -292,7 +292,7 @@ sub command {
# version of the program # version of the program
if ($commands{"version"}) { if ($commands{"version"}) {
print "SWIM version $version\n"; print "DSWIM version $version\n";
} }
@ -1652,11 +1652,11 @@ sub usage {
# Shameless publication of the ThE_* Project, and also shameless self # Shameless publication of the ThE_* Project, and also shameless self
# agrandizing.... # agrandizing....
print "SWIM version $version print "DSWIM version $version
Copyright (C) 2001 - by Jonathan Rosenbaum <freesource\@users.sourceforge.net> Copyright (C) 2001 - by Jonathan Rosenbaum <freesource\@users.sourceforge.net>
This may be freely redistributed under the terms of the GNU General Public License\n"; This may be freely redistributed under the terms of the GNU General Public License\n";
$save = "SWIM version $version $save = "DSWIM version $version
Copyright (C) 2001 - by Jonathan Rosenbaum <freesource\@users.sourceforge.net> Copyright (C) 2001 - by Jonathan Rosenbaum <freesource\@users.sourceforge.net>
This may be freely redistributed under the terms of the GNU General Public License This may be freely redistributed under the terms of the GNU General Public License
@ -1730,7 +1730,7 @@ Quit?:press q here\n";
# nusage # nusage
sub nusage { sub nusage {
$save = "SWIM version $version $save = "DSWIM version $version
Copyright (C) 2001 - by Jonathan Rosenbaum <freesource\@users.sourceforge.net> Copyright (C) 2001 - by Jonathan Rosenbaum <freesource\@users.sourceforge.net>
This may be freely redistributed under the terms of the GNU General Public License This may be freely redistributed under the terms of the GNU General Public License
@ -1801,10 +1801,10 @@ Hints: Searches - equiv. negated [^...]
# Tries to emulate rpm --help, but rather futile, because of the great # Tries to emulate rpm --help, but rather futile, because of the great
# differnces between swim and rpm. # differences between swim and rpm.
sub help { sub help {
$save = "SWIM version $version $save = "DSWIM version $version
Copyright (C) 2001 - by Jonathan Rosenbaum <freesource\@users.sourceforge.net> Copyright (C) 2001 - by Jonathan Rosenbaum <freesource\@users.sourceforge.net>
This may be freely redistributed under the terms of the GNU General Public License This may be freely redistributed under the terms of the GNU General Public License