Revision: 1882
http://sourceforge.net/p/r-gregmisc/code/1882
Author: warnes
Date: 2014-08-28 05:22:50 +0000 (Thu, 28 Aug 2014)
Log Message:
-----------
Suppress annoying warnings in Spreadsheet::ParseXLS::FmtDefalt.
Modified Paths:
--------------
trunk/gdata/inst/perl/Spreadsheet/ParseExcel/FmtDefault.pm
Modified: trunk/gdata/inst/perl/Spreadsheet/ParseExcel/FmtDefault.pm
===================================================================
--- trunk/gdata/inst/perl/Spreadsheet/ParseExcel/FmtDefault.pm 2014-08-28 05:17:28 UTC (rev 1881)
+++ trunk/gdata/inst/perl/Spreadsheet/ParseExcel/FmtDefault.pm 2014-08-28 05:22:50 UTC (rev 1882)
@@ -102,15 +102,19 @@
sub FmtString {
my ( $oThis, $oCell, $oBook ) = @_;
+ no warnings;
my $sFmtStr =
$oThis->FmtStringDef( $oBook->{Format}[ $oCell->{FormatNo} ]->{FmtIdx},
$oBook );
+ use warnings;
# Special case for cells that use Lotus123 style leading
# apostrophe to designate text formatting.
+ no warnings;
if ( $oBook->{Format}[ $oCell->{FormatNo} ]->{Key123} ) {
$sFmtStr = '@';
}
+ use warnings;
unless ( defined($sFmtStr) ) {
if ( $oCell->{Type} eq 'Numeric' ) {
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
