hjp
/
simba
1
0
Fork 0
Code Issues 2 Pull Requests Releases Wiki Activity

moved da to scripts/da

This commit is contained in:
hjp 2007-06-17 21:58:57 +00:00
parent 12f2c87c71
commit 9f46b37420
4 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Build.PL
View File

@ -12,7 +12,7 @@ my $build = Simba::Build->new
'Digest::SHA1' => 0, 'Digest::SHA1' => 0,
}, },
script_files => [ script_files => [
'da', 'scripts/da',
], ],
); );
$build->create_build_script; $build->create_build_script;

4
lib/Simba/Build.pm
View File

@ -10,8 +10,8 @@ our @ISA = ('Module::Build');
sub ACTION_install { sub ACTION_install {
my $self = shift; my $self = shift;
# print STDERR Dumper($self), "\n"; # print STDERR Dumper($self), "\n";
print STDERR $self->install_path->{lib}, "\n"; # print STDERR $self->install_path->{lib}, "\n";
print STDERR Dumper($self->install_map), "\n"; # print STDERR Dumper($self->install_map), "\n";
my $lib = $self->install_map->{'blib/lib'}; my $lib = $self->install_map->{'blib/lib'};
for my $script (glob('blib/script/*')) { for my $script (glob('blib/script/*')) {
open (my $in, '<', $script) or die "cannot open $script: $!"; open (my $in, '<', $script) or die "cannot open $script: $!";

4
lib/Simba/CA.pm
View File

@ -143,7 +143,9 @@ sub backup2disk {
$self->setmeta($f); $self->setmeta($f);
} elsif ($f->{t} eq 'l') { } elsif ($f->{t} eq 'l') {
my $l = "$self->{this_backup}/$f->{name}"; my $l = "$self->{this_backup}/$f->{name}";
symlink($f->{lt}, $l) or die "cannot symlink $l -> $f->{lt}: $!"; # XXX unless (symlink($f->{lt}, $l)) {
die "cannot symlink $l -> $f->{lt}: $!"; # XXX
}
# $self->setmeta($f); ignore for symlinks. would need to use # $self->setmeta($f); ignore for symlinks. would need to use
# lchown, lchmod, etc. # lchown, lchmod, etc.
} else { } else {

0
da → scripts/da
View File