--- Merging r13989 into '.':

U    packages/unzip/src/unzipdll.pp

# revisions: 13989
------------------------------------------------------------------------
r13989 | hajny | 2009-10-31 22:27:34 +0100 (Sat, 31 Oct 2009) | 1 line
Changed paths:
   M /trunk/packages/unzip/src/unzipdll.pp

  * fixed compilation broken by rename of unit unzip to unzip51g
------------------------------------------------------------------------

git-svn-id: branches/fixes_2_4@14693 -

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.