This is an automated email from the git hooks/post-receive script. x2go pushed a commit to branch master in repository x2goserver. commit 3e24f3211617aa10d3c0a48610181ec90f541624 Author: Mihai Moldovan <ionic@ionic.de> Date: Wed Dec 5 08:30:48 2018 +0100 X2Go/Utils.pm: add new is_int subroutine, checking if the provided value is an integer. --- X2Go/Utils.pm | 19 ++++++++++++++++++- debian/changelog | 2 ++ 2 files changed, 20 insertions(+), 1 deletion(-) diff --git a/X2Go/Utils.pm b/X2Go/Utils.pm index 234702c..4a4c7a2 100644 --- a/X2Go/Utils.pm +++ b/X2Go/Utils.pm @@ -37,7 +37,7 @@ use strict; use base 'Exporter'; -our @EXPORT = ( 'load_module', 'is_true', +our @EXPORT = ( 'load_module', 'is_true', 'is_int', 'source_environment', 'clups', 'sanitizer', 'system_capture_merged_output', 'system_capture_stdout_output', 'check_x2go_sessionid'); @@ -61,6 +61,23 @@ sub is_true { return 0; } +sub is_int { + my $value = shift; + my $allow_negative = shift; + + if (!(defined ($allow_negative))) { + $allow_negative = 0; + } + + if ($allow_negative) { + return 1 if $value =~ m/-?\d+/; + } + else { + return 1 if $value =~ m/\d+/; + } + + return 0; +} sub source_environment { my $name = shift; diff --git a/debian/changelog b/debian/changelog index 4e58012..e92aa36 100644 --- a/debian/changelog +++ b/debian/changelog @@ -15,6 +15,8 @@ x2goserver (4.1.0.4-0x2go1) UNRELEASED; urgency=medium - x2goserver-x2goagent/man/man1/x2goagent.1: add version and date. - x2goserver/Makefile: generate man pages from Perl POD. - X2Go/Utils.pm: fix missing semicolons. + - X2Go/Utils.pm: add new is_int subroutine, checking if the provided value + is an integer. * debian/control: + Build-depend upon lsb-release for distro version detection. * debian/x2goserver.manpages: -- Alioth's /home/x2go-admin/maintenancescripts/git/hooks/post-receive-email on /srv/git/code.x2go.org/x2goserver.git