|
Lines 9-23
Link Here
|
| 9 |
# |
9 |
# |
| 10 |
# Copyright (c) 2000 Sun Microsystems, Inc. |
10 |
# Copyright (c) 2000 Sun Microsystems, Inc. |
| 11 |
|
11 |
|
|
|
12 |
use Cwd; |
| 13 |
|
| 14 |
$currdir = cwd; |
| 15 |
|
| 12 |
$MODE = 00777 ; |
16 |
$MODE = 00777 ; |
| 13 |
|
17 |
|
| 14 |
while ( $#ARGV > 0 ) { |
18 |
while ( $#ARGV >= 0 ) { |
| 15 |
if ( $ARGV[0] eq "-mode" ) { |
19 |
if ( $ARGV[0] eq "-mode" ) { |
| 16 |
$MODE = oct $ARGV[1] ; |
20 |
$MODE = oct $ARGV[1] ; |
| 17 |
shift @ARGV ; |
21 |
shift @ARGV ; |
| 18 |
} ; |
22 |
shift @ARGV ; |
| 19 |
shift @ARGV ; |
23 |
} |
| 20 |
} ; |
24 |
else { |
| 21 |
|
25 |
|
| 22 |
$ARGV[0] =~ s?\\|:?/?g ; |
26 |
$ARGV[0] =~ s?\\|:?/?g ; |
| 23 |
@SUBDIRS = split "/", $ARGV[0] ; |
27 |
@SUBDIRS = split "/", $ARGV[0] ; |
|
Lines 50-52
Link Here
|
| 50 |
chdir $SUBDIRS[0] or die "Can't cd to $SUBDIRS[0]" ; |
54 |
chdir $SUBDIRS[0] or die "Can't cd to $SUBDIRS[0]" ; |
| 51 |
shift @SUBDIRS ; |
55 |
shift @SUBDIRS ; |
| 52 |
} ; |
56 |
} ; |
|
|
57 |
|
| 58 |
shift @ARGV ; |
| 59 |
} ; |
| 60 |
chdir $currdir; |
| 61 |
} |