Changeset 9356


Ignore:
Timestamp:
11/30/09 22:18:18 (2 years ago)
Author:
adamk
Message:

Remove the crazy file magic, just do it literally

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Padre-Plugin-wxGlade/lib/Padre/Plugin/wxGlade/WXG.pm

    r9355 r9356  
    5252sub path { 
    5353    $_[0]->{attrib}->{path}; 
    54 } 
    55  
    56 # Smarter equivalent for path 
    57 sub file { 
    58     my $self = shift; 
    59  
    60     # Handle null cases 
    61     unless ( defined _STRING($self->path) ) { 
    62         return $self->path; 
    63     } 
    64  
    65     # Handle the trivial positive case 
    66     if ( -f $self->path ) { 
    67         return $self->path; 
    68     } 
    69  
    70     # Because wxGlade saves absolute paths, they don't transport well. 
    71     # If the literal path doesn't exist, add support for the generated 
    72     # file being in the same directory as the WXG file itself. 
    73     die( "CODE INCOMPLETE" ); 
    7454} 
    7555 
     
    141121 
    142122    # Load the Perl file and localize newlines 
    143     my $file = $self->file; 
     123    my $file = $self->path; 
    144124    my $perl = _lslurp($file); 
    145125 
Note: See TracChangeset for help on using the changeset viewer.