From 3210b46cc258c9ca34f6fbff6ddc864e4908021c Mon Sep 17 00:00:00 2001 From: Sean O'Rourke Date: Mon, 14 Mar 2011 08:33:03 -0600 Subject: [PATCH] * info-dir fix. * version 0.991_04 --- ChangeLog | 5 ++++- Makefile.PL | 5 ++--- lib/Sepia.pm | 2 +- 3 files changed, 7 insertions(+), 5 deletions(-) diff --git a/ChangeLog b/ChangeLog index 2421ec4..d786fed 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,4 +1,7 @@ -2011-02-22 Sean O'Rourke +2011-03-14 Sean O'Rourke + + * VERSION: 0.991_04 (testing). + * Makefile.PL (prompt_for_infodir): filter out Emacs-spam. 2010-11-05 Sean O'Rourke diff --git a/Makefile.PL b/Makefile.PL index 5a4913a..101716b 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -95,11 +95,10 @@ sub prompt_for_sitelisp sub prompt_for_infodir { - my $info_dir = run_elisp( $ELISP_FIND_INFODIR ); - chomp $info_dir; + chomp(my @info_dir = grep { m!/info/?$! } run_elisp( $ELISP_FIND_INFODIR )); # pass prompt undef so it will not display brackets if $info_dir is "" - $info_dir = prompt("Info directory?", $info_dir || undef); + my $info_dir = prompt("Info directory?", $info_dir[0] || undef); return escape_path( $info_dir ); } diff --git a/lib/Sepia.pm b/lib/Sepia.pm index 6952be5..4e78606 100644 --- a/lib/Sepia.pm +++ b/lib/Sepia.pm @@ -33,7 +33,7 @@ interface. =cut -$VERSION = '0.991_03'; +$VERSION = '0.991_04'; BEGIN { # a less annoying version of strict and warnings if (!eval 'use common::sense;1') { -- 2.11.4.GIT