Changeset 3283

Timestamp:

03/12/09 05:38:22 (3 years ago)

Author:

jquelin

Message:

copying the My Plugin if needed

File:

• trunk/Padre/lib/Padre/Config/Constants.pm (modified) (4 diffs)

trunk/Padre/lib/Padre/Config/Constants.pm

@@ -5 +5 @@
 package Padre::Config::Constants;
 
+use File::Basename        qw{ dirname };
+use File::Copy            qw{ copy };
 use File::Path            qw{ mkpath };
 use File::Spec;
@@ -10 +12 @@
 
 # -- export stuff
+
 use base qw{ Exporter };
 
@@ -84 +87 @@
 #
 # find and return the directory where padre should check the locally
-# installed plugins. create it if needed. no params.
+# installed plugins. create it if needed. copy the My Plugin in it if
+# needed.
+#
+# no params.
 #
 sub _find_padre_plugin_dir {
@@ -97 +103 @@
 
     # copy the My Plugin if necessary
-    my $file = catfile( $fullpath, 'My.pm' );
-    unless ( -e $file ) {
-        Padre::Config->copy_original_My_plugin( $file );
+    my $dst = catfile( $fullpath, 'My.pm' );
+    unless ( -e $dst ) {
+        my $src = catfile( dirname($INC{'Padre/Config.pm'}), 'Plugin', 'My.pm' );
+        die "Could not find the original My plugin" unless -e $src;
+        copy($src, $dst) or die "Could not copy the My plugin ($src) to $dst: $!";
+        chmod( 0644, $dst);
     }