bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2025-02-22 16:43:23 -05:00
Code Issues Projects Releases Wiki Activity

Copies the initial control over, if it doesn't already exist.

Browse Source
This commit is contained in:
freesource 2001-09-15 06:03:46 +00:00
parent 2bf6f23f5a
commit ec7224c1b3
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
add-ons/yard/make-debian-X11/make_debian-X11_pkg
View File

@ -34,8 +34,7 @@ my $urgency = "low";
my $gbootroot_cvs = my $gbootroot_cvs =
"$user_home/gbootroot/gbootroot/add-ons/yard/make-debian-X11"; "$user_home/gbootroot/gbootroot/add-ons/yard/make-debian-X11";
my $packaging_place = "$user_home/gbootroot/PACKAGING-debian-X11"; my $packaging_place = "$user_home/gbootroot/PACKAGING-debian-X11";
my $packaging_defaults = my $packaging_defaults = "$gbootroot_cvs/pkg/dpkg";
"$gbootroot_cvs/add-ons/yard/make-debian-X11/pkg/dpkg";
my $email = "freesource\@users.sourceforge.net"; my $email = "freesource\@users.sourceforge.net";
my $name = "Jonathan Rosenbaum"; my $name = "Jonathan Rosenbaum";
my $makefile = "Makefile.pkg"; my $makefile = "Makefile.pkg";
@ -139,6 +138,11 @@ system "dh_make -e $email";
# Here we ask the user what changes to add to the changelog and set the proper # Here we ask the user what changes to add to the changelog and set the proper
# time using 822-date. If it is the initial release we don't do anything. # time using 822-date. If it is the initial release we don't do anything.
if ( !-e "$packaging_defaults/changelog" ) {
system
"cp -a $packaging_place/debian/changelog $packaging_defaults";
}
open(CHANGELOG,"$packaging_defaults/changelog") open(CHANGELOG,"$packaging_defaults/changelog")
or die "Couldn't open $packaging_place/changelog: $!\n"; or die "Couldn't open $packaging_place/changelog: $!\n";
my @changelog = <CHANGELOG>; my @changelog = <CHANGELOG>;
@ -175,6 +179,7 @@ if (!$stop) {
$count++; $count++;
} }
open(CHANGELOG,">$packaging_defaults/changelog") open(CHANGELOG,">$packaging_defaults/changelog")
or die "Couldn't open check: $!\n"; or die "Couldn't open check: $!\n";
for my $ct (0 .. ($#changelog - 3)) { for my $ct (0 .. ($#changelog - 3)) {