fix bug in version numbering scheme
authorHerb Lewis <herb@samba.org>
Thu, 8 Jan 1998 16:34:09 +0000 (16:34 +0000)
committerHerb Lewis <herb@samba.org>
Thu, 8 Jan 1998 16:34:09 +0000 (16:34 +0000)
packaging/SGI/spec.pl

index 01453fd9235a00b035dc47779785c08740f2cfd6..84dbc852297c8823bf7e141fe1472219816ee8fb 100755 (executable)
@@ -13,6 +13,7 @@ $_ = $foo[0];
 # create the package name
 $vername = "    id \"Samba Version ".$_."\"\n";
 
 # create the package name
 $vername = "    id \"Samba Version ".$_."\"\n";
 
+$patch = 0;
 #create the subsystem version numbers
 if (/alpha/) {
   $_ =~ s/alpha/.00./;
 #create the subsystem version numbers
 if (/alpha/) {
   $_ =~ s/alpha/.00./;
@@ -21,8 +22,13 @@ elsif (/p/) {
   $_ =~ s/p/./;
   $_ .= '.00';
 }
   $_ =~ s/p/./;
   $_ .= '.00';
 }
+else {
+ $_ .='.01.00';
+}
+
 ($v1,$v2,$v3,$v4,$v5) = split('\.');
 ($v1,$v2,$v3,$v4,$v5) = split('\.');
-$vernum = sprintf "        version %02d%02d%02d%02d%02d\n",$v1,$v2,$v3,$v4,$v5;
+$v4 = $v4 + $patch;
+$vernum = sprintf("        version %02d%02d%02d%02d%02d\n",$v1,$v2,$v3,$v4,$v5);
 
 # generate the samba.spec file
 open(SPEC,">samba.spec") || die "Unable to open samba.spec for output\n";
 
 # generate the samba.spec file
 open(SPEC,">samba.spec") || die "Unable to open samba.spec for output\n";