Changeset 204 in ProjectBuilder for devel/pb/bin
- Timestamp:
- Oct 14, 2007, 8:20:11 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/bin/pb
r203 r204 24 24 use ProjectBuilder::Distribution qw (pb_distro_init); 25 25 use ProjectBuilder::Version qw (pb_version_init); 26 use ProjectBuilder::Base qw (pb_conf_read pb_conf_get pb_cms_init pb_mkdir_p pb_system pb_rm_rf pb_get_filters pb_filter_file pb_filter_file_pb pb_cms_export pb_cms_log );26 use ProjectBuilder::Base qw (pb_conf_read pb_conf_get pb_cms_init pb_mkdir_p pb_system pb_rm_rf pb_get_filters pb_filter_file pb_filter_file_pb pb_cms_export pb_cms_log pb_cms_isdiff pb_cms_copy pb_cms_checkout); 27 27 28 28 my %opts; # CLI Options … … 695 695 sub pb_newver { 696 696 697 die "-V Version parameter needed" if ((not defined $newver) || ($newver eq "")); 697 698 my $cms=pb_cms_init($ENV{'PBPROJ'}); 698 699 if ($cms->{$ENV{'PBPROJ'}} ne "svn") { … … 702 703 die "You need to have no differences before creating a new version" if ($res != 0); 703 704 my $cmsurl = pb_cms_getinfo($cms); 704 my $newurl = dirname($cmsurl). $newver;705 pb_cms_copy($cms url,$newurl);706 pb_cms_checkout($ newurl);705 my $newurl = dirname($cmsurl)."/$newver"; 706 pb_cms_copy($cms,$cmsurl,$newurl); 707 pb_cms_checkout($cms,$newurl,"$ENV{'PBROOT'}/.."); 707 708 } 708 709
Note:
See TracChangeset
for help on using the changeset viewer.