Changeset 3294
- Timestamp:
- 03/12/09 08:14:39 (3 years ago)
- File:
-
- 1 edited
-
trunk/Padre/lib/Padre/Config.pm (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Padre/lib/Padre/Config.pm
r3293 r3294 167 167 168 168 ##################################################################### 169 # Class-Level Functionality170 171 172 # TODO - This should probably live in Padre::PluginManager somewhere173 sub copy_original_My_plugin {174 my $class = shift;175 my $target = shift;176 my $src = File::Spec->catfile(177 File::Basename::dirname($INC{'Padre/Config.pm'}),178 'Plugin', 'My.pm'179 );180 unless ( $src ) {181 die "Could not find the original My plugin";182 }183 unless ( File::Copy::copy($src, $target) ) {184 return die "Could not copy the My plugin ($src) to $target: $!";185 }186 chmod( 0644, $target );187 188 return 1;189 }190 191 192 193 194 195 #####################################################################196 169 # Constructor and Accessors 197 170
Note: See TracChangeset
for help on using the changeset viewer.
