projects
/
usenet
/
newsstats.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
install.pl: Fix installation instructions.
[usenet/newsstats.git]
/
NewsStats.pm
diff --git
a/NewsStats.pm
b/NewsStats.pm
index
a8c5b7b
..
3efc14b
100644
(file)
--- a/
NewsStats.pm
+++ b/
NewsStats.pm
@@
-18,6
+18,7
@@
require Exporter;
@EXPORT = qw(
$MySelf
$MyVersion
@EXPORT = qw(
$MySelf
$MyVersion
+ $PackageVersion
ReadOptions
ReadConfig
OverrideConfig
ReadOptions
ReadConfig
OverrideConfig
@@
-40,6
+41,7
@@
require Exporter;
Output => [qw(OutputData FormatOutput)],
SQLHelper => [qw(SQLHierarchies SQLGroupList GetMaxLenght)]);
$VERSION = '0.1';
Output => [qw(OutputData FormatOutput)],
SQLHelper => [qw(SQLHierarchies SQLGroupList GetMaxLenght)]);
$VERSION = '0.1';
+our $PackageVersion = '0.1';
use Data::Dumper;
use File::Basename;
use Data::Dumper;
use File::Basename;
@@
-82,7
+84,7
@@
sub ReadOptions {
sub ShowVersion {
################################################################################
### display version and exit
sub ShowVersion {
################################################################################
### display version and exit
- print "$MyVersion\nCopyright (c) 2010 Thomas Hochstein <thh\@inter.net>\n";
+ print "
NewsStats v$PackageVersion\n
$MyVersion\nCopyright (c) 2010 Thomas Hochstein <thh\@inter.net>\n";
print "This program is free software; you may redistribute it and/or modify it under the same terms as Perl itself.\n";
exit(100);
};
print "This program is free software; you may redistribute it and/or modify it under the same terms as Perl itself.\n";
exit(100);
};
This page took
0.010793 seconds
and
4
git commands to generate.