Help for this page

Select Code to Download

Select or download this

  DB<13> sub inc_version { my ($ver,$pos) = @_ ; my @vers = split /\./
+,$ver; $vers[$pos]++; return join '.', @vers }

...
3.26.3
2.27.3
2.26.4