pkg bug + copying ChangeLog

[David Bateman]

As the changelog is now part of a standard octave-forge package, it
makes sense to copy in to the packinfo directory of an installed
package. This patch does that as well as fixes a small bug..

D.

-- 
David Bateman                                address@hidden
Motorola Labs - Paris                        +33 1 69 35 48 04 (Ph) 
Parc Les Algorithmes, Commune de St Aubin    +33 6 72 01 06 33 (Mob) 
91193 Gif-Sur-Yvette FRANCE                  +33 1 69 35 77 01 (Fax) 

The information contained in this communication has been classified as: 

[x] General Business Information 
[ ] Motorola Internal Use Only 
[ ] Motorola Confidential Proprietary

*** ./scripts/pkg/pkg.m.orig27  2007-01-29 14:05:22.654421877 +0100
--- ./scripts/pkg/pkg.m 2007-01-29 14:06:34.454757677 +0100
***************
*** 765,770 ****
--- 765,780 ----
         error("Couldn't copy COPYING: %s", output);
      endif
  
+     ## If the file ChangeLog exists, copy it
+     fChangeLog = fullfile(packdir, "ChangeLog");
+     if (exist(fChangeLog, "file"))
+         [status, output] = copyfile(fChangeLog, packinfo);
+         if (status != 1)
+             rm_rf(desc.dir);
+             error("Couldn't copy ChangeLog file: %s", output);
+         endif
+     endif
+ 
      ## Is there an INDEX file to copy or should we generate one?
      fINDEX = fullfile(packdir, "INDEX");
      if (exist(fINDEX, "file"))
***************
*** 775,782 ****
          endif
      else
          try
!             write_INDEX(desc, fullfile(packdir, "inst"), fullfile(packinfo, 
"IND
! EX"));
          catch
              rm_rf(desc.dir);
              error(lasterr);
--- 785,791 ----
          endif
      else
          try
!             write_INDEX(desc, fullfile(packdir, "inst"), fullfile(packinfo, 
"INDEX"));
          catch
              rm_rf(desc.dir);
              error(lasterr);