CC-tea/screen
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/screen.git synced 2026-02-11 01:42:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

take care of symlinks.

Browse Source 
cvs prefers to replace them by inplace copies. grrr.
This commit is contained in:
jnweiger
2005-12-15 16:11:20 +00:00
parent 91f7dc8e5d
commit 68b5e68dbf
1 changed files with 18 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
mktar.pl
View File

@@ -1,7 +1,6 @@
#! /usr/bin/perl -w #! /usr/bin/perl -w
# #
# create a tar ball snapshot from cvs repository. # create a tar ball snapshot from cvs repository.
# oh, more bash than perl here....
# #
# 2005-12-15, jw # 2005-12-15, jw
# #
@@ -10,6 +9,21 @@ use Data::Dumper;
my $srcdir = 'src'; my $srcdir = 'src';
my $version_file = "$srcdir/patchlevel.h"; my $version_file = "$srcdir/patchlevel.h";
my %symlinks =
(
'FAQ' => 'doc/FAQ',
'doc/install.sh' => '../install.sh'
);
for my $l (keys %symlinks)
{
my $ll = "$srcdir/$l";
next if -l $ll;
print "replacing $ll with a symlink to $symlinks{$l}\n";
unlink $ll;
symlink $symlinks{$l}, $ll;
}
my %version; my %version;
open IN, "<", $version_file or die "unable to read $version_file: $!"; open IN, "<", $version_file or die "unable to read $version_file: $!";
while (defined(my $line = <IN>)) while (defined(my $line = <IN>))
@@ -24,5 +38,7 @@ mkdir $tmpdir or die "cannot mkdir $tmpdir: $!";
system "cp -a $srcdir $tmpdir" and die "'cp -a $srcdir $tmpdir' failed: $!"; system "cp -a $srcdir $tmpdir" and die "'cp -a $srcdir $tmpdir' failed: $!";
rename "$tmpdir/$srcdir", "$tmpdir/screen-$version" or die "rename to screen-$version failed: $!"; rename "$tmpdir/$srcdir", "$tmpdir/screen-$version" or die "rename to screen-$version failed: $!";
system "tar zcvf - -C $tmpdir > screen-$version.tar.gz screen-$version" system "tar zcf - -C $tmpdir > screen-$version.tar.gz screen-$version";
system "rm -rf $tmpdir"; system "rm -rf $tmpdir";
print "screen-$version.tar.gz written.\n";