[Openinteract-commits] CVS: OpenInteract/OpenInteract Package.pm,1.39,1.40

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/OpenInteract/OpenInteract
In directory sc8-pr-cvs1:/tmp/cvs-serv5548

Modified Files:
	Package.pm 
Log Message:
in copy_modules(): instead of returning the module files relative to
the package, return them with the full destination paths


Index: Package.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/OpenInteract/Package.pm,v
retrieving revision 1.39
retrieving revision 1.40
diff -C2 -d -r1.39 -r1.40
*** Package.pm	24 Aug 2002 19:57:13 -0000	1.39
--- Package.pm	25 Jan 2003 16:16:07 -0000	1.40
***************
*** 901,904 ****
--- 901,905 ----
      my $pkg_files = ExtUtils::Manifest::maniread;
      my @module_files = grep /\.pm$/, keys %{ $pkg_files };
+     my @module_files_full = ();
      my ( %dir_ok );
      foreach my $filename ( @module_files ) {
***************
*** 912,918 ****
          }
          cp( $filename, $full_dest_file );
      }
      chdir( $current_dir );
!     return \@module_files;
  }
  
--- 913,920 ----
          }
          cp( $filename, $full_dest_file );
+         push @module_files_full, $full_dest_file;
      }
      chdir( $current_dir );
!     return \@module_files_full;
  }
  
***************
*** 1683,1686 ****
--- 1685,1695 ----
  
  =back
+ 
+ B<copy_modules( $pkg_info, $to_dir )>
+ 
+ Copy all module files (everything ending in C<.pm>) from this package
+ to a separate directory.
+ 
+ Returns: arrayref with the full destination path of all files copied.
  
  =head1 HELPER METHODS