From 9f46b3742049f72427590a3e38a7474de7cdcd05 Mon Sep 17 00:00:00 2001
From: hjp <hjp@d47eeb7a-11fe-0310-b519-e5a4e12f9765>
Date: Sun, 17 Jun 2007 21:58:57 +0000
Subject: [PATCH] moved da to scripts/da

---
 Build.PL           | 2 +-
 lib/Simba/Build.pm | 4 ++--
 lib/Simba/CA.pm    | 4 +++-
 da => scripts/da   | 0
 4 files changed, 6 insertions(+), 4 deletions(-)
 rename da => scripts/da (100%)

diff --git a/Build.PL b/Build.PL
index f4bfc3e..b6de0f4 100644
--- a/Build.PL
+++ b/Build.PL
@@ -12,7 +12,7 @@ my $build = Simba::Build->new
 				'Digest::SHA1' => 0,
 			   },
 	script_files	=> [
-				'da',
+				'scripts/da',
 			   ],
     );
 $build->create_build_script;
diff --git a/lib/Simba/Build.pm b/lib/Simba/Build.pm
index 0e60734..f5ba0f8 100644
--- a/lib/Simba/Build.pm
+++ b/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: $!";
diff --git a/lib/Simba/CA.pm b/lib/Simba/CA.pm
index 55b69ac..52ba8c7 100644
--- a/lib/Simba/CA.pm
+++ b/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 {
diff --git a/da b/scripts/da
similarity index 100%
rename from da
rename to scripts/da