From 48df18ee0172053da2cf396544febba08925360b Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Tue, 21 Jun 2011 10:16:59 +0000
Subject: [PATCH] 2011-06-21 12:16 UTC+0200 Viktor Szakats (harbour.01
 syenar.hu)   * contrib/hbmzip/tests/myzip.prg   *
 contrib/hbmzip/tests/myunzip.prg     ! use MAIN() as entry point to make some
 platforms happy

---
 harbour/ChangeLog                        | 5 +++++
 harbour/contrib/hbmzip/tests/myunzip.prg | 7 +++----
 harbour/contrib/hbmzip/tests/myzip.prg   | 7 +++----
 3 files changed, 11 insertions(+), 8 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 97c1f95051..e452e2dd06 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,11 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2011-06-21 12:16 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * contrib/hbmzip/tests/myzip.prg
+  * contrib/hbmzip/tests/myunzip.prg
+    ! use MAIN() as entry point to make some platforms happy
+
 2011-06-19 17:09 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
   * contrib/hbqt/qtcore/qth/QStringList.qth
     ! Commented out: duplicate ( from Harbour's POW ) function
diff --git a/harbour/contrib/hbmzip/tests/myunzip.prg b/harbour/contrib/hbmzip/tests/myunzip.prg
index e24abbb3d9..84a6d74f19 100644
--- a/harbour/contrib/hbmzip/tests/myunzip.prg
+++ b/harbour/contrib/hbmzip/tests/myunzip.prg
@@ -50,9 +50,7 @@
  *
  */
 
-
-
-PROC MyUnzip( ... )
+PROCEDURE Main( ... )
    LOCAL hUnzip, aWild, cFileName, cExt, cPath, cFile, ;
          dDate, cTime, nSize, nCompSize, nErr, ;
          lCrypted, cPassword, cComment, tmp
@@ -113,4 +111,5 @@ PROC MyUnzip( ... )
       ENDDO
       HB_UNZIPCLOSE( hUnzip )
    ENDIF
-RETURN
+
+   RETURN
diff --git a/harbour/contrib/hbmzip/tests/myzip.prg b/harbour/contrib/hbmzip/tests/myzip.prg
index e818b5e29a..028ec0b426 100644
--- a/harbour/contrib/hbmzip/tests/myzip.prg
+++ b/harbour/contrib/hbmzip/tests/myzip.prg
@@ -50,9 +50,7 @@
  *
  */
 
-
-
-PROC MyZip( ... )
+PROCEDURE Main( ... )
    LOCAL hZip, aDir, aFile, aWild, ;
          cZipName, cPath, cFileName, cExt, cWild, cPassword, cComment,;
          tmp
@@ -104,4 +102,5 @@ PROC MyZip( ... )
       NEXT
       HB_ZIPCLOSE( hZip, cComment )
    ENDIF
-RETURN
+
+   RETURN