Text value is modified by Spreadsheet::ParseExcel::SaveParser

[fheyer]

Hello,

i observed that Spreadsheet::ParseExcel::SaveParser removes leading zeros from text values in excel files.
After reading and writing out test data zeroes are missing from cell values although those are formatted as text.
This is the test file i used (produced with LibreOffice 4.1.6.2).
http://www.heyer-it.de/dl/text-with-leading-zero.xls

Put it into the same as this test program. It loads the test files with SaveParser and saves it to 'out.xls'. After running the test program you can see the difference between source file and output file 'out.xls'.

#!/usr/bin/env perl

use strict;

use Spreadsheet::ParseExcel::SaveParser;

Spreadsheet::ParseExcel::SaveParser->new()->Parse( 'text-with-leading-zero.xls' )->SaveAs( 'out.xls' );

This is my environment:

Perl version : 5.020000
OS name : darwin
Module versions: (not all are required)
Spreadsheet::ParseExcel 0.65
Scalar::Util 1.38
Unicode::Map (not installed)
Spreadsheet::WriteExcel 2.40
Parse::RecDescent 1.967009
File::Temp 0.2304
OLE::Storage_Lite 0.19
IO::Stringy 2.110