[R-gregmisc-users] SF.net SVN: r-gregmisc:[1925] trunk/gdata/inst/perl/xls2csv.pl

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

Revision: 1925
          http://sourceforge.net/p/r-gregmisc/code/1925
Author:   warnes
Date:     2015-04-14 20:52:26 +0000 (Tue, 14 Apr 2015)
Log Message:
-----------
Replace depricated PERL function POSIX::isnumeric with equivalent regexp

Modified Paths:
--------------
    trunk/gdata/inst/perl/xls2csv.pl

Modified: trunk/gdata/inst/perl/xls2csv.pl
===================================================================
--- trunk/gdata/inst/perl/xls2csv.pl	2015-04-14 19:43:15 UTC (rev 1924)
+++ trunk/gdata/inst/perl/xls2csv.pl	2015-04-14 20:52:26 UTC (rev 1925)
@@ -118,7 +118,7 @@
 
 if(defined($ARGV[2]) )
   {
-    if ( isdigit($ARGV[2]) )
+    if ( $ARGV[2] =~ m|^\d+$| )
       {
 	$sheetnumber = $ARGV[2];
 	die "Sheetnumber must be an integer larger than 0.\n" if $sheetnumber < 1;

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.