| Revision 9009,
472 bytes
checked in by ghudson, 28 years ago
(diff) |
|
This commit was generated by cvs2svn to compensate for changes in r9008,
which included commits to RCS files with non-trunk default branches.
|
| Line | |
|---|
| 1 | #!/usr/bin/perl |
|---|
| 2 | |
|---|
| 3 | $| = 1; |
|---|
| 4 | if ($#ARGV >= 0) { |
|---|
| 5 | $cmd = join(' ',@ARGV); |
|---|
| 6 | } |
|---|
| 7 | else { |
|---|
| 8 | print "Command: "; |
|---|
| 9 | $cmd = <stdin>; |
|---|
| 10 | chop($cmd); |
|---|
| 11 | while ($cmd =~ s/\\$//) { |
|---|
| 12 | print "+ "; |
|---|
| 13 | $cmd .= <stdin>; |
|---|
| 14 | chop($cmd); |
|---|
| 15 | } |
|---|
| 16 | } |
|---|
| 17 | $cwd = `pwd`; chop($cwd); |
|---|
| 18 | |
|---|
| 19 | open(FIND,'find . -type d -print|') || die "Can't run find"; |
|---|
| 20 | |
|---|
| 21 | while (<FIND>) { |
|---|
| 22 | chop; |
|---|
| 23 | unless (chdir $_) { |
|---|
| 24 | print stderr "Can't cd to $_\n"; |
|---|
| 25 | next; |
|---|
| 26 | } |
|---|
| 27 | print "\t--> ",$_,"\n"; |
|---|
| 28 | system $cmd; |
|---|
| 29 | chdir $cwd; |
|---|
| 30 | } |
|---|
Note: See
TracBrowser
for help on using the repository browser.
