Radix cross Linux Toolchains

Index: dist_clean
===================================================================
--- dist_clean	(nonexistent)
+++ dist_clean	(revision 5)
@@ -0,0 +1,23 @@
+#!/usr/bin/perl
+
+use File::Basename;
+
+$base = $ARGV[0];
+
+open( F, '<', '.dist' ) or die "Could not open .dist";
+
+while( <F> )
+{
+  chomp;
+  $f = "$base/$_";
+  unlink $f;
+  $dirs{dirname($f)}++;
+}
+
+foreach ( sort { length($b) <=> length($a) } keys %dirs )
+{
+  while( rmdir )
+  {
+    $_ = dirname( $_ );
+  }
+}

Property changes on: dist_clean
___________________________________________________________________
Added: svn:executable
## -0,0 +1 ##
+*
\ No newline at end of property