Merge branch 'posix_issue_153' into develop

Author: Marcin Przepiorowski

bin/dx_ctl_snapshots.pl

@@ -86,12 +86,17 @@
   exit (1);
 }
 
+my $w = ($retention =~ /^[[:digit:]]+$/);
+print Dumper !$w;
+
+
+
 if (defined($retention)) {
   if (lc $retention eq 'forever') {
     $retention = -1;
   } elsif (lc $retention eq 'policy') {
     $retention = 0;
-  } elsif (! isdigit($retention) ) {
+  } elsif (! ($retention =~ /^[[:digit:]]+$/x )) {
     print "Retention parameter has to be a integer or word 'forever' \n";
     pod2usage(-verbose => 1,  -input=>\*DATA);
     exit(1);