Mercurial > ec-dotfiles
comparison bin/cek.pl @ 77:fef22522dca3
[cek.pl] better comment
| author | Edho Prima Arief <me@myconan.net> |
|---|---|
| date | Sun, 19 Jun 2011 02:06:16 +0700 |
| parents | 8fc79d327ccd |
| children |
comparison
equal
deleted
inserted
replaced
| 76:8fc79d327ccd | 77:fef22522dca3 |
|---|---|
| 8 my $block_size = 1*2**20; | 8 my $block_size = 1*2**20; |
| 9 my $crc32_digest = 0; | 9 my $crc32_digest = 0; |
| 10 my $return_code = 0; | 10 my $return_code = 0; |
| 11 my $file_name = $_[0]; | 11 my $file_name = $_[0]; |
| 12 if (!$file_name) { | 12 if (!$file_name) { |
| 13 #internal error, empty file name | 13 #internal error, no file name passed to the function |
| 14 $return_code = 10; | 14 $return_code = 10; |
| 15 } elsif (!-f $file_name) { | 15 } elsif (!-f $file_name) { |
| 16 #input file name is not a file | 16 #input file name is not a file |
| 17 $return_code = 11; | 17 $return_code = 11; |
| 18 } elsif (!-r $file_name) { | 18 } elsif (!-r $file_name) { |