From 26d49c40789b1d237a2af31ca3a5eb11ef62c2b0 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 17 Aug 2005 10:01:54 +0000
Subject: allow using from far away, not only gi/perl-install

---
 perl-install/unused/migrate-ugtk2-to-mygtk2.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'perl-install/unused')

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') 
 	}
     }
 }
-- 
cgit v1.2.1