From 9493a734f2e1a020129b95dff9ec154b4f6da4cf Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Fri, 15 Jun 2012 08:17:18 +0000 Subject: [PATCH] 2012-06-15 10:16 UTC+0200 Viktor Szakats (harbour syenar.net) * utils/hbmk2/hbmk2.prg ! fixed RTE when running hbrun without parameter --- harbour/ChangeLog | 4 ++++ harbour/utils/hbmk2/hbmk2.prg | 5 +++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index d4fe5101cb..f652c598b6 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,10 @@ The license applies to all entries newer than 2009-04-28. */ +2012-06-15 10:16 UTC+0200 Viktor Szakats (harbour syenar.net) + * utils/hbmk2/hbmk2.prg + ! fixed RTE when running hbrun without parameter + 2012-06-15 03:28 UTC+0200 Viktor Szakats (harbour syenar.net) * utils/hbmk2/hbmk2.prg ! do not try to dynamically load hbwin for registry diff --git a/harbour/utils/hbmk2/hbmk2.prg b/harbour/utils/hbmk2/hbmk2.prg index 2ed391e7fc..f688526d70 100644 --- a/harbour/utils/hbmk2/hbmk2.prg +++ b/harbour/utils/hbmk2/hbmk2.prg @@ -587,8 +587,9 @@ PROCEDURE _APPMAIN( ... ) Left( Lower( hb_FNameName( hb_argv( 0 ) ) ), 5 ) == "hbrun" .OR. ; hb_PValue( 1 ) == "." .OR. ; "|" + Lower( hb_FNameExt( hb_PValue( 1 ) ) ) + "|" $ "|.hb|.hrb|" ) .AND. ; - !( Left( hb_PValue( 1 ), 6 ) == "-hbreg" .OR. ; - Left( hb_PValue( 1 ), 8 ) == "-hbunreg" ) + !( ! Empty( hb_PValue( 1 ) ) .AND. ; + ( Left( hb_PValue( 1 ), 6 ) == "-hbreg" .OR. ; + Left( hb_PValue( 1 ), 8 ) == "-hbunreg" ) ) __hbshell( ... ) QUIT ENDIF