Revision 4742
Added by walbridge almost 16 years ago
| register-dataset.cgi | ||
|---|---|---|
| 998 | 998 |
sub writeFile {
|
| 999 | 999 |
my $fileName = shift; |
| 1000 | 1000 |
my $fileData; |
| 1001 |
my $fileName = shift; |
|
| 1002 | 1001 |
my $length = 0; |
| 1003 | 1002 |
my $buffer; |
| 1004 | 1003 |
|
Also available in: Unified diff
only shift once; fix typo in writeFile