Merge pull request #1 from culb/PerlChangeVersion

Fix Perl script regisration version
This commit is contained in:
culb 2024-08-18 22:29:18 -04:00 committed by GitHub
commit e3929e4ccf
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
3 changed files with 3 additions and 3 deletions

View File

@ -605,7 +605,7 @@ AM_CONDITIONAL(USE_DBUS, test "x$dbus" = "xyes")
AM_CONDITIONAL(HAVE_ISO_CODES, test "x$isocodes" = "xyes") AM_CONDITIONAL(HAVE_ISO_CODES, test "x$isocodes" = "xyes")
AM_CONDITIONAL(HAVE_GTK_MAC, test "x$_gdk_tgt" = xquartz) AM_CONDITIONAL(HAVE_GTK_MAC, test "x$_gdk_tgt" = xquartz)
AM_CONDITIONAL(WITH_TM, test "x$theme_manager" != "xno") AM_CONDITIONAL(WITH_TM, test "x$theme_manager" != "xno")
AM_CONDITIONAL(PLATFORM_OSX, test "x$platform_osx" == "xyes") AM_CONDITIONAL(PLATFORM_OSX, test "x$platform_osx" = "xyes")
dnl ********************************************************************* dnl *********************************************************************
dnl ** CFLAGS *********************************************************** dnl ** CFLAGS ***********************************************************

View File

@ -102,7 +102,7 @@ sub register {
unless( $name && $name =~ /[[:print:]\w]/ ) { unless( $name && $name =~ /[[:print:]\w]/ ) {
$name = "Not supplied"; $name = "Not supplied";
} }
unless( $version && $version =~ /\d+(?:\.\d+)?/ ) { unless( defined $version && $version =~ /\d+(?:\.\d+)?/ ) {
$version = "NaN"; $version = "NaN";
} }
$pkg_info->{gui_entry} = $pkg_info->{gui_entry} =

View File

@ -601,7 +601,7 @@ re_url (void)
} }
/* EMAIL description --- */ /* EMAIL description --- */
#define EMAIL "[a-z][._%+-a-z0-9]+@" "(" HOST_URL ")" #define EMAIL "[a-z0-9][._%+-a-z0-9]+@" "(" HOST_URL ")"
static const GRegex * static const GRegex *
re_email (void) re_email (void)