moved da to scripts/da

Build.PL

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

lib/Simba/Build.pm

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

lib/Simba/CA.pm

@@ -143,7 +143,9 @@ sub backup2disk {
                 $self->setmeta($f);
 	} elsif ($f->{t} eq 'l') {
                 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 
                 # lchown, lchmod, etc.
 	} else {