Changeset 9356
- Timestamp:
- 11/30/09 22:18:18 (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Padre-Plugin-wxGlade/lib/Padre/Plugin/wxGlade/WXG.pm
r9355 r9356 52 52 sub path { 53 53 $_[0]->{attrib}->{path}; 54 }55 56 # Smarter equivalent for path57 sub file {58 my $self = shift;59 60 # Handle null cases61 unless ( defined _STRING($self->path) ) {62 return $self->path;63 }64 65 # Handle the trivial positive case66 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 generated72 # file being in the same directory as the WXG file itself.73 die( "CODE INCOMPLETE" );74 54 } 75 55 … … 141 121 142 122 # Load the Perl file and localize newlines 143 my $file = $self-> file;123 my $file = $self->path; 144 124 my $perl = _lslurp($file); 145 125
Note: See TracChangeset
for help on using the changeset viewer.
