Line | |
---|
1 | #!/usr/bin/perl -w
|
---|
2 | #
|
---|
3 | # Declare versions that will be used in MondoRescue
|
---|
4 | # Those are filtered with pb mecanism
|
---|
5 | # and have been isolated here to avoid unrelated effects
|
---|
6 | #
|
---|
7 | # Copyright B. Cornec 2007-2015
|
---|
8 | # Provided under the GPL v2
|
---|
9 | #
|
---|
10 | package MondoRescue::Version;
|
---|
11 |
|
---|
12 | use strict;
|
---|
13 |
|
---|
14 | # Inherit from the "Exporter" module which handles exporting functions.
|
---|
15 |
|
---|
16 | use vars qw($VERSION $REVISION @ISA @EXPORT);
|
---|
17 | use Exporter;
|
---|
18 |
|
---|
19 | # Export, by default, all the functions into the namespace of
|
---|
20 | # any code which uses this module.
|
---|
21 | our @ISA = qw(Exporter);
|
---|
22 | our @EXPORT = qw(mr_version_init);
|
---|
23 |
|
---|
24 | $VERSION = "PBVER";
|
---|
25 | $REVISION = "PBREV";
|
---|
26 |
|
---|
27 | sub mr_version_init {
|
---|
28 |
|
---|
29 | my $mrver = $VERSION;
|
---|
30 | my $mrrev = $REVISION;
|
---|
31 |
|
---|
32 | return($mrver,$mrrev);
|
---|
33 | }
|
---|
34 | 1;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.