Subversion Repositories DevTools

Rev

Rev 227 | Rev 5710 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 227 Rev 255
Line 10... Line 10...
10 
# Description   : Provide varions utility functions to process version
 10 
# Description   : Provide varions utility functions to process version
11 
#                 package infrormation.
 11 
#                 package infrormation.
12 
#
 12 
#
13 
#......................................................................#
 13 
#......................................................................#
14 
 
 14 
 
15 
require 5.6.1;
 15 
require 5.006_001;
16 
use strict;
 16 
use strict;
17 
use warnings;
 17 
use warnings;
18 
 
 18 
 
19 
package JatsVersionUtils;
 19 
package JatsVersionUtils;
20 
 
 20 
 
Line 99... Line 99...
99 
    $version =~ s~\s+$~~;
 99 
    $version =~ s~\s+$~~;
100 
 
 100 
 
101 
    $package =~ s~^\s+~~;
 101 
    $package =~ s~^\s+~~;
102 
    $package =~ s~\s+$~~;
 102 
    $package =~ s~\s+$~~;
103 
 
 103 
 
104 
    if ( $version =~ m~^\((.*?)\)([\.]([^0-9]+))$~ )
 104 
    if ( $version =~ m~^\((.*?)\)([\.]([^.0-9]+))$~ )
105 
    {
 105 
    {
106 
        $rel = 'WIP';
 106 
        $rel = 'WIP';
107 
        $suf = $3;
 107 
        $suf = $3;
108 
        $suf = '' unless ( $suf );
 108 
        $suf = '' unless ( $suf );
109 
 
 109 
 
110 
    }
 110 
    }
111 
    elsif ( $version =~ m~^(.*?)([\.\s]([^0-9]+))$~ )
 111 
    elsif ( $version =~ m~^(.*?)([\.\s]([^.0-9]+))$~ )
112 
    {
 112 
    {
113 
        $rel = $1;
 113 
        $rel = $1;
114 
        $suf = $3;
 114 
        $suf = $3;
115 
        $suf = '' unless ( $suf );
 115 
        $suf = '' unless ( $suf );
116 
    }
 116 
    }