Changeset 5 in ProjectBuilder for devel/pb/bin/mdv-changelog.pl
- Timestamp:
- Jul 29, 2007, 12:50:34 AM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/bin/mdv-changelog.pl
r2 r5 8 8 9 9 open(FILE, $ARGV[0]) || die "Unable to open $ARGV[0]"; 10 open(OUT, "> $ENV{'P ROJTMP'}/out.spec") || die "Unable to create $ENV{'MONDOTMP'}/out.spec";11 open(CMT, "> $ENV{'P ROJTMP'}/cmt.spec") || die "Unable to create $ENV{'MONDOTMP'}/out.spec";10 open(OUT, "> $ENV{'PBTMP'}/out.spec") || die "Unable to create $ENV{'MONDOTMP'}/out.spec"; 11 open(CMT, "> $ENV{'PBTMP'}/cmt.spec") || die "Unable to create $ENV{'MONDOTMP'}/out.spec"; 12 12 while (<FILE>) { 13 13 if ($_ !~ /^\%changelog/) { … … 29 29 close (FILE); 30 30 31 move("$ENV{'P ROJTMP'}/out.spec", $ARGV[0]);31 move("$ENV{'PBTMP'}/out.spec", $ARGV[0]); 32 32 exit(0); 33 33 }
Note:
See TracChangeset
for help on using the changeset viewer.