Changeset 639

Timestamp:

06/02/07 04:40:12 (2 years ago)

Author:

DominoTree

Message:

GO AWAY WINDOWS LINEBREAKS!

Files:

• trunk/tools/build/ispcp-mkdirs.pl (modified) (1 diff)

trunk/tools/build/ispcp-mkdirs.pl

@@ -1 +1 @@
-#!/usr/bin/perl
+
-use strict;
+
-use warnings;
+
-if (scalar(@ARGV) != 1) {
+
-    print STDERR "\nispcp-mkdirs.pl command line argument error !\n\n";
+
-    exit 1;
+
-}
+
-my $dir_path = $ARGV[0];
+
-$dir_path .= "\n";
+
-my $current_dir = '';
+
-while ($dir_path =~ /(\/[^\/\n]+)/g) {
+
-    $current_dir .= $1;
+
-    if (! -e $current_dir) {
+
-        mkdir($current_dir);
+
-        print "Creating Directory [$current_dir] ...\n";
+
-    }
+
-}