Changeset 10394


Ignore:
Timestamp:
01/30/10 19:34:17 (2 years ago)
Author:
CSJewell
Message:

syntax/subroutine rename fixes

Location:
trunk/Perl-Dist-Padre
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/Perl-Dist-Padre

    • Property svn:ignore

      •  

        old new  
        11*.gz 
        22*.html 
         3Build 
         4Build.bat 
        35LICENSE 
        46MANIFEST 
        57META.yml 
         8MYMETA.yml 
        69Makefile 
        710Makefile.old 

  • trunk/Perl-Dist-Padre/lib/Perl/Dist/Padre.pm

    r10356 r10394  
    55use strict; 
    66use warnings; 
    7 use Perl::Dist::WiX          1.102002 
     7use Perl::Dist::WiX          1.102002; 
    88use Perl::Dist::Strawberry   2.02     qw(); 
    99use URI::file                         qw(); 
    … …  
    5757 
    5858        # These are the locations to pull down the msm. 
    59         msm_to_use => 'http://strawberryperl.com/download/strawberry-msm/strawberry-perl-5.10.1.1.msm' 
     59        msm_to_use => 'http://strawberryperl.com/download/strawberry-msm/strawberry-perl-5.10.1.1.msm', 
    6060        msm_zip    => 'http://strawberryperl.com/download/strawberry-perl-5.10.1.1.zip', 
    6161        msm_code   => '12345678-1111-122345678-1111-1111-1111', 
    … …  
    179179    # These were new between 0.50 and 0.55 
    180180    $self->install_modules( qw{ 
     181          Module::ScanDeps 
     182          Module::Install 
    181183          Format::Human::Bytes 
    182184          Template::Tiny 
    … …  
    235237 
    236238    # Get the Id for directory object that stores the filename passed in. 
    237     my $dir_id = $self->directories()->search_dir( 
     239    my $dir_id = $self->get_directory_tree()->search_dir( 
    238240        path_to_find => catdir( $self->image_dir(), 'perl', 'bin' ), 
    239241        exact        => 1, 
    … …  
    242244 
    243245    my $icon_id = 
    244       $self->icons() 
     246      $self->_icons() 
    245247      ->add_icon( catfile( $self->dist_dir(), 'padre.ico' ), 'padre.exe' ); 
    246248 
    247249    # Add the start menu icon. 
    248     $self->{fragments}->{StartMenuIcons}->add_shortcut( 
     250    $self->get_fragment_object('StartMenuIcons')->add_shortcut( 
    249251        name => 'Padre', 
    250252        description => 
    … …  
    277279} ## end sub dist_dir 
    278280 
    279  
    280  
    2812811;                                     # Magic true value required at end of module 
    282282 
    … …  
    287287=begin readme text 
    288288 
    289 Perl::Dist::Padre version 0.500 
     289Perl::Dist::Padre version 0.560 
    290290 
    291291=end readme 
    … …  
    368368Dependencies of this module that are non-core in perl 5.8.1 (which is the  
    369369minimum version of Perl required) include  
    370 L<Perl::Dist::Strawberry|Perl::Dist::Strawberry> version 2.01, and  
    371 L<URI::file|URI::file>. 
     370L<Perl::Dist::Strawberry|Perl::Dist::Strawberry> version 2.02,  
     371L<URI::file|URI::file>, and L<parent|parent>. 
    372372 
    373373=for readme stop 
Note: See TracChangeset for help on using the changeset viewer.