equal
deleted
inserted
replaced
1 #!perl -w |
1 #!perl -w |
|
2 # Copyright (c) 2009 Symbian Foundation Ltd |
|
3 # This component and the accompanying materials are made available |
|
4 # under the terms of the License "Eclipse Public License v1.0" |
|
5 # which accompanies this distribution, and is available |
|
6 # at the URL "http://www.eclipse.org/legal/epl-v10.html". |
|
7 # |
|
8 # Initial Contributors: |
|
9 # Symbian Foundation Ltd - initial contribution. |
|
10 # |
|
11 # Contributors: |
|
12 # |
|
13 # Description: |
|
14 # Recursive listing of a directory, outputting lower-cased relative paths with unix dir separators |
|
15 |
2 use strict; |
16 use strict; |
3 |
17 |
4 my $dir = shift or die "Usage: $0 <dir> \n"; # provided dir to traverse |
18 my $dir = shift or die "Usage: $0 <dir> \n"; # provided dir to traverse |
5 my $filelist = []; |
19 my $filelist = []; |
6 my $init = $dir = lc($dir); |
20 my $init = $dir = lc($dir); |