From 05346b4ee3b5d84b69fee871fe4c2325ea44aa51 Mon Sep 17 00:00:00 2001
From: Tomas Hajny <hajny@freepascal.org>
Date: Sat, 31 Oct 2009 21:27:34 +0000
Subject: [PATCH]   * fixed compilation broken by rename of unit unzip to
 unzip51g

git-svn-id: trunk@13989 -
---
 packages/unzip/src/unzipdll.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/unzip/src/unzipdll.pp b/packages/unzip/src/unzipdll.pp
index 06efc20f79..b477c0a946 100644
--- a/packages/unzip/src/unzipdll.pp
+++ b/packages/unzip/src/unzipdll.pp
@@ -52,7 +52,7 @@ uses
      Windows,
  {$ENDIF WIN32}
 {$ENDIF OS2}
- Unzip, Dos;
+ Unzip51g, Dos;
 
 type
  UzpMainFunc = function (ArgC: longint; var ArgV: TArgV): longint; cdecl;
@@ -237,6 +237,6 @@ begin
   WriteLn ('under some conditions (e.g. for long names and drives not supporting them).');
   Write (#13#10'Do you want to continue now (y/N)? ');
   ReadLn (C);
-  if UpCase (C) = 'Y' then FileUnzipEx := TFileUnzipEx (@Unzip.FileUnzipEx) else Halt (255);
+  if UpCase (C) = 'Y' then FileUnzipEx := TFileUnzipEx (@Unzip51g.FileUnzipEx) else Halt (255);
  end;
 end.