[R-gregmisc-users] SF.net SVN: r-gregmisc:[1882] trunk/gdata/inst/perl/Spreadsheet/ParseExcel/ FmtDefault.pm

[<wa...@us...>]

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.