summaryrefslogtreecommitdiffstats
path: root/perl-install/unused/migrate-ugtk2-to-mygtk2.pl
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-08-17 10:01:54 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-08-17 10:01:54 +0000
commit26d49c40789b1d237a2af31ca3a5eb11ef62c2b0 (patch)
tree926e1a7281d0e3cd6580c6c4d7029105615fc319 /perl-install/unused/migrate-ugtk2-to-mygtk2.pl
parentd459f86d81b8dfa97ef5a7c443e4017f4acea4f0 (diff)
downloaddrakx-26d49c40789b1d237a2af31ca3a5eb11ef62c2b0.tar
drakx-26d49c40789b1d237a2af31ca3a5eb11ef62c2b0.tar.gz
drakx-26d49c40789b1d237a2af31ca3a5eb11ef62c2b0.tar.bz2
drakx-26d49c40789b1d237a2af31ca3a5eb11ef62c2b0.tar.xz
drakx-26d49c40789b1d237a2af31ca3a5eb11ef62c2b0.zip
allow using from far away, not only gi/perl-install
Diffstat (limited to 'perl-install/unused/migrate-ugtk2-to-mygtk2.pl')
-rw-r--r--perl-install/unused/migrate-ugtk2-to-mygtk2.pl5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/unused/migrate-ugtk2-to-mygtk2.pl b/perl-install/unused/migrate-ugtk2-to-mygtk2.pl
index 8528eaac2..71e07faaf 100644
--- a/perl-install/unused/migrate-ugtk2-to-mygtk2.pl
+++ b/perl-install/unused/migrate-ugtk2-to-mygtk2.pl
@@ -2,7 +2,7 @@ use MDK::Common;
BEGIN {
@ARGV or warn(<<EOF), exit 1;
-usage: unused/migrate-ugtk2-to-mygtk2.pl -pi <file.pm>
+usage: $0 -pi <file.pm>
- an emacs is launched with a script fixing the closing "children => [ ...",
simply save the file and exit this emacs
@@ -217,7 +217,8 @@ END {
if (defined $^I) {
foreach (@args) {
warn "$_: closing children using emacs\n";
- system('emacs', '-q', '-l', 'unused/migrate-ugtk2-to-mygtk2.el', $_, '-f', 'my-close-children')
+ (my $el = $0) =~ s/\.pl$/.el/ or die ".el missing";
+ system('emacs', '-q', '-l', $el, $_, '-f', 'my-close-children')
}
}
}