--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/bundlelibs.pl	Sun Jun 29 03:51:33 2008 +0000
@@ -0,0 +1,45 @@
+#!/usr/bin/perl
+# Script for OS X to copy all non-core library dependencies into the bundle, and fixup the lib naming
+# Run after the executable is already in the bundle.
+
+if( $#ARGV <= 0 ) {
+   die( "Usage: bundlelibs.pl <target-binary> <target-lib-path>\n" );
+}
+
+my $BINARY=shift();
+my $TARGETDIR=shift();
+my $OTOOL="otool";
+my $NTOOL="install_name_tool";
+
+mkdir $TARGETDIR;
+
+my %done=();
+my @worklist = ($BINARY);
+
+while( $#worklist >= 0 ) {
+    my $target = shift @worklist;
+    $done{$target} = 2;
+    
+    open FH, "$OTOOL -L $target|" || die "Unable to run otool";
+    $skip = <FH>;
+
+    while(<FH>){
+        $lib = $_;
+        $lib =~ s/^\s+([^\s]+)\s.*$/$1/s;
+        if( $lib !~ /^\/System\/Library/ && $lib !~ /^\/usr\/lib/ && $lib !~ /^\@executable_path\// ) {
+            $libname = $lib;
+            $libname =~ s#^.*/##;
+            $targetpath = "$TARGETDIR/$libname";
+            $libid = "\@executable_path/../Frameworks/$libname";
+            if( !$done{$libname} ) {
+                $done{libname} = 1;
+                push @worklist, $targetpath;
+                system( ("cp", $lib, $targetpath) ) == 0 || die "Failed to copy $lib to $targetpath";
+                system( ($NTOOL, "-id", $libid, $targetpath) ) == 0 || die "Failed to set $lib ID to $libid";
+                print "Copied $lib => $targetpath\n";
+            }
+            system( ($NTOOL, "-change", $lib, $libid, $target ) ) == 0 || die "Failed to change $lib ID to $libid";
+        }
+    }
+    close FH;
+}