thh/newsstats
1
0
Fork 0
Code Issues 3 Pull requests Projects Releases Packages Activity

Change to semantic versioning.

Browse source 
Remove individual script versions as opposed to
package version.

Signed-off-by: Thomas Hochstein <thh@thh.name>
This commit is contained in:
Thomas Hochstein 2025-05-10 13:40:30 +02:00
parent 992d678460
commit 1d3c8f9529
8 changed files with 11 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lib/NewsStats.pm
View file

@ -16,8 +16,7 @@ our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
$MyVersion
$PackageVersion
$VERSION
$FullPath
$HomePath
ShowVersion
@ -49,8 +48,7 @@ require Exporter;
Output => [qw(OutputData FormatOutput)],
SQLHelper => [qw(SQLHierarchies SQLSortOrder SQLGroupList
SQLSetBounds SQLBuildClause GetMaxLength)]);
$VERSION = '0.02';
our $PackageVersion = '0.02';
$VERSION = '0.2.0';
use Data::Dumper;
use File::Basename;
@ -68,8 +66,6 @@ our $HomePath = dirname(realpath($0));
$HomePath =~ s/\/(bin|install)//;
# trim $0
$0 =~ s%.*/%%;
# set version string
our $MyVersion = "$0 $::VERSION (NewsStats.pm $VERSION)";
#####------------------------------- Basics -------------------------------#####
@ -79,8 +75,8 @@ our $MyVersion = "$0 $::VERSION (NewsStats.pm $VERSION)";
sub ShowVersion {
################################################################################
### display version and exit
print "NewsStats v$PackageVersion\n$MyVersion\n";
print "Copyright (c) 2010-2013 Thomas Hochstein <thh\@inter.net>\n";
print "$0 from NewsStats v$VERSION\n";
print "Copyright (c) 2010-2013 Thomas Hochstein <thh\@thh.name>\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);