diff options
| author | Joey Hess <joey@kitenet.net> | 2013-02-03 10:39:25 +1100 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-02-03 10:39:25 +1100 |
| commit | c6d41f92283616b15233ade70d33f0919f995a44 (patch) | |
| tree | 305d6923dc44fd4f33f80cc5dbe87b508916bdac /IkiWiki/Wrapper.pm | |
| parent | c8270ad05c7b7183c1c5b71b8324363b6d40fe73 (diff) | |
| parent | a5fb27acb86fbeaabd1ba24b6eecd2e41f986c9d (diff) | |
| download | ikiwiki-c6d41f92283616b15233ade70d33f0919f995a44.tar ikiwiki-c6d41f92283616b15233ade70d33f0919f995a44.tar.gz | |
Merge remote-tracking branch 'schmonz/cvs'
Diffstat (limited to 'IkiWiki/Wrapper.pm')
| -rw-r--r-- | IkiWiki/Wrapper.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/IkiWiki/Wrapper.pm b/IkiWiki/Wrapper.pm index 06be36dfc..84b4b5a2f 100644 --- a/IkiWiki/Wrapper.pm +++ b/IkiWiki/Wrapper.pm @@ -28,10 +28,11 @@ sub gen_wrappers () { %config=(%origconfig); } +our $program_to_wrap = $0; sub gen_wrapper () { $config{srcdir}=File::Spec->rel2abs($config{srcdir}); $config{destdir}=File::Spec->rel2abs($config{destdir}); - my $this=File::Spec->rel2abs($0); + my $this=File::Spec->rel2abs($program_to_wrap); if (! -x $this) { error(sprintf(gettext("%s doesn't seem to be executable"), $this)); } |