diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-08-17 10:01:54 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-08-17 10:01:54 +0000 |
| commit | 26d49c40789b1d237a2af31ca3a5eb11ef62c2b0 (patch) | |
| tree | 926e1a7281d0e3cd6580c6c4d7029105615fc319 /perl-install | |
| parent | d459f86d81b8dfa97ef5a7c443e4017f4acea4f0 (diff) | |
| download | drakx-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')
| -rw-r--r-- | perl-install/unused/migrate-ugtk2-to-mygtk2.pl | 5 |
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') } } } |