X-Git-Url: http://git.jankratochvil.net/?a=blobdiff_plain;f=CV.html.pl;h=58c3fa81243603e424c4c98c9812d704c370e45e;hb=3c9ac46d7c98e9d02911e3b6d1ce2e88133983aa;hp=69a22c8a02f21e0568d80f108456b529330e5c5d;hpb=eef48d2e46f78c25e0a1145cc2748bfb1d7c5fd7;p=www.jankratochvil.net.git diff --git a/CV.html.pl b/CV.html.pl index 69a22c8..58c3fa8 100755 --- a/CV.html.pl +++ b/CV.html.pl @@ -18,23 +18,23 @@ # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA -package Index; +package CV; require 5.6.0; # at least 'use warnings;' but we need some 5.6.0+ modules anyway -use vars qw($VERSION $CVS_ID); -$VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; }; -$CVS_ID=q$Id$; +our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; }; +our $CVS_ID=q$Id$; use strict; use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[0]]}; eval "use lib '$top_dir'"; close F; } use My::Web; -require 'CGI'; -require 'My::Project'; +require CGI; +Wrequire 'My::Project'; my $W=My::Web->init( "__PACKAGE__"=>__PACKAGE__, "title"=>'CV - Jan Kratochvil', + "heading"=>0, "footer"=>0, ); My::Web->heading();