[Bps-public-commit] r10409 - bpsbuilder/BPB/lib/BPB

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Mon Jan 21 10:26:22 2008
New Revision: 10409

Modified:
   bpsbuilder/BPB/lib/BPB/Backend.pm

Log:
changed link to symlink for wrapper

Modified: bpsbuilder/BPB/lib/BPB/Backend.pm
==============================================================================
--- bpsbuilder/BPB/lib/BPB/Backend.pm	(original)
+++ bpsbuilder/BPB/lib/BPB/Backend.pm	Mon Jan 21 10:26:22 2008
@@ -31,12 +31,7 @@
 
 our $WRAPPER = <<'EOF'
 #!/bin/sh
-if [ -z `which readlink` ]; then  
-    # if we don't have readlink, we're on some pitiful platform like solaris
-    test -h $0 && BASE=`ls -l $0 | awk -F\>  '{print $NF}'`
-else
-    BASE=`readlink $0`
-fi
+BASE=`readlink $0`
 if [ -z "$BASE" ]; then
         BASE=$0
 fi
@@ -264,7 +259,7 @@
         move( $file =>
               File::Spec->catfile( $args{'install-base'}, "$dir-wrapped" ) )
           or die $!;
-        link File::Spec->catfile( $args{'install-base'}, 'etc',
+        symlink '..', 'etc',
             'bpb-script-wrapper' ) => $file
           or die $!;
         chmod 0755, $file;