Súbor: [Platon] / dead / test / version.pl (stiahnutie)
Revízia 1.2, Fri Apr 23 19:15:48 2004 UTC (19 years, 11 months ago) by rajo
Zmeny od 1.1: +4 -2
[lines]
Usage of 'use vars' instead of my @varname;
|
#!/usr/bin/perl
#
# version.pl
#
# Developed by Lubomir Host 'rajo' <rajo AT platon.sk>
# Copyright (c) 2004 Platon SDG, http://platon.sk/
# Licensed under terms of GNU General Public License.
# All rights reserved.
#
# Changelog:
# 2004-04-23 - created
#
# $Platon: dead/test/version.pl,v 1.1 2004/04/23 19:05:27 rajo Exp $
use strict;
use vars qw ( $VERSION );
$VERSION = sprintf("%d.%02d", q$Revision: 1.2 $ =~ /(\d+)\.(\d+)/);
print "version.pl version $VERSION\n";
# vim: ts=4
# vim600: fdm=marker fdl=0 fdc=3
Platon Group <platon@platon.sk> http://platon.sk/
|