Subversion Repositories DevTools

(root)/core_devl/trunk/TOOLS/jats_svnrelease.pl – Rev 3859 → 4446



        $version = $1 if ( $version =~ m~^${name}[_.](.*)~i );
    }
    elsif ( $devBranch )
    {
        $version = $devBranch;
        $version =~ s~.*?/~~;
    }
 
    if ( $version && $name )
    {
        $opt_viewname = join( '_', $name, $version);

Rev 3859	Rev 4446
Line 1574...	Line 1574...
1574	`$version = $1 if ( $version =~ m~^${name}[_.](.*)~i );`	1574	`$version = $1 if ( $version =~ m~^${name}[_.](.*)~i );`
1575	`}`	1575	`}`
1576	`elsif ( $devBranch )`	1576	`elsif ( $devBranch )`
1577	`{`	1577	`{`
1578	`$version = $devBranch;`	1578	`$version = $devBranch;`
1579	`$version =~ s~.*/~~;`	1579	`$version =~ s~.*?/~~;`
1580	`}`	1580	`}`
1581		1581
1582	`if ( $version && $name )`	1582	`if ( $version && $name )`
1583	`{`	1583	`{`
1584	`$opt_viewname = join( '_', $name, $version);`	1584	`$opt_viewname = join( '_', $name, $version);`