vcs.maemo.org Git - pkg-perl/blob - deb-src/libwx-perl/libwx-perl-0.96/script/copy_files.pl

   1 #!/usr/bin/perl -w
   2 #############################################################################
   3 ## Name:        script/copy_files.pl
   4 ## Purpose:     Simple wrapper around ExtUtils::Install
   5 ## Author:      Mattia Barbon
   6 ## Modified by:
   7 ## Created:     16/12/2002
   8 ## RCS-ID:      $Id: copy_files.pl 2057 2007-06-18 23:03:00Z mbarbon $
   9 ## Copyright:   (c) 2002 Mattia Barbon
  10 ## Licence:     This program is free software; you can redistribute it and/or
  11 ##              modify it under the same terms as Perl itself
  12 #############################################################################
  13
  14 use strict;
  15 use ExtUtils::Install 'pm_to_blib';
  16
  17 my $file = shift;
  18
  19 die "File '$file' does not exist" unless -f $file;
  20 my $files = do $file;
  21
  22 die "Error loading options: $@" unless $files;
  23 #die %$files;
  24 pm_to_blib( $files,
  25             'blib', # dummy argument, but required
  26             '' );   # idem
  27
  28 exit 0;
  29
  30 # local variables:
  31 # mode: cperl
  32 # end: