diff options
author | Yang Tse <yangsita@gmail.com> | 2010-02-16 13:32:45 +0000 |
---|---|---|
committer | Yang Tse <yangsita@gmail.com> | 2010-02-16 13:32:45 +0000 |
commit | 46b112bcd439f4413925a7300d66a3e6f148765e (patch) | |
tree | c925ce0c32a0af8bbcf427187c3838d005e3218b /tests/libtest/test610.pl | |
parent | f442dd6496c8710c4000a078e8085238fdaa7545 (diff) |
replaced tabs with spaces
Diffstat (limited to 'tests/libtest/test610.pl')
-rwxr-xr-x | tests/libtest/test610.pl | 46 |
1 files changed, 23 insertions, 23 deletions
diff --git a/tests/libtest/test610.pl b/tests/libtest/test610.pl index c9542ca51..a900d94b4 100755 --- a/tests/libtest/test610.pl +++ b/tests/libtest/test610.pl @@ -2,32 +2,32 @@ # Perform simple file and directory manipulation in a portable way if ( $#ARGV <= 0 ) { - print "Usage: $0 mkdir|rmdir|rm|move|gone path1 [path2] [more commands...]\n"; - exit 1; + print "Usage: $0 mkdir|rmdir|rm|move|gone path1 [path2] [more commands...]\n"; + exit 1; } use File::Copy; while(@ARGV) { - my $cmd = shift @ARGV; - my $arg = shift @ARGV; - if ($cmd eq "mkdir") { - mkdir $arg || die "$!"; - } - elsif ($cmd eq "rmdir") { - rmdir $arg || die "$!"; - } - elsif ($cmd eq "rm") { - unlink $arg || die "$!"; - } - elsif ($cmd eq "move") { - my $arg2 = shift @ARGV; - move($arg,$arg2) || die "$!"; - } - elsif ($cmd eq "gone") { - ! -e $arg || die "Path $arg exists"; - } else { - print "Unsupported command $cmd\n"; - exit 1; - } + my $cmd = shift @ARGV; + my $arg = shift @ARGV; + if ($cmd eq "mkdir") { + mkdir $arg || die "$!"; + } + elsif ($cmd eq "rmdir") { + rmdir $arg || die "$!"; + } + elsif ($cmd eq "rm") { + unlink $arg || die "$!"; + } + elsif ($cmd eq "move") { + my $arg2 = shift @ARGV; + move($arg,$arg2) || die "$!"; + } + elsif ($cmd eq "gone") { + ! -e $arg || die "Path $arg exists"; + } else { + print "Unsupported command $cmd\n"; + exit 1; + } } exit 0; |