Changeset 429 in ProjectBuilder for devel/pb/lib/ProjectBuilder/Filter.pm
- Timestamp:
- May 8, 2008, 2:04:20 AM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/lib/ProjectBuilder/Filter.pm
r427 r429 140 140 The fourteenth parameter is the changelog. 141 141 The fifteenth parameter is the project. 142 The sixteenth parameter is the repo. 142 143 143 144 =cut … … 161 162 my $chglog = shift || undef; 162 163 my $pbproj = shift; 164 my $pbrepo = shift; 163 165 164 166 pb_log(2,"DEBUG: From $f to $destfile\n"); … … 207 209 The eighth parameter is the packager name. 208 210 The nineth parameter is the project name. 211 The tenth parameter is the repo. 209 212 210 213 =cut … … 223 226 my $pbpackager=shift; 224 227 my $pbproj=shift; 228 my $pbrepo = shift; 225 229 226 230 my $cp = "$ENV{'PBTMP'}/".basename($destfile); 227 231 copy($destfile,$cp) || die "Unable to create $cp"; 228 232 229 pb_filter_file($cp,$ptr,$destfile,$pbpkg,$pbver,$pbtag,$pbrev,$pbdate,$pbpackager,$pbproj );233 pb_filter_file($cp,$ptr,$destfile,$pbpkg,$pbver,$pbtag,$pbrev,$pbdate,$pbpackager,$pbproj,$pbrepo); 230 234 unlink $cp; 231 235 } … … 247 251 The nineth parameter is the packager name. 248 252 The tenth parameter is the project name. 253 The eleventh parameter is the repo. 249 254 250 255 =cut … … 265 270 my $pbpackager=shift; 266 271 my $pbproj=shift; 272 my $pbrepo = shift; 267 273 268 274 pb_log(2,"DEBUG: From $f to $destfile\n");
Note:
See TracChangeset
for help on using the changeset viewer.