develooper Front page | perl.perl5.porters | Postings from September 2000

[ID 20000902.006] [PATCH 6962] Configure -- allow leading driveand colon on pager

Thread Next
From:
Philip Newton
Date:
September 2, 2000 02:38
Subject:
[ID 20000902.006] [PATCH 6962] Configure -- allow leading driveand colon on pager
Message ID:
200009020938.LAA73202@smtp2.nikoma.de
Have pity on us poor DOS users! getfile kindly allows an optional
drive letter plus colon in cases where an absolute file name is
desired, but the pager selection insists on a / at the beginning.
I took the code from getfile and added it here.

Note that this also allows the DJGPP config.over file to drop the
pager, since if less is found, this Configure patch automatically
picks it up with e.g. D:/djgpp/bin/less.exe.

--- Configure~	Sat Sep  2 08:10:00 2000
+++ Configure	Sat Sep  2 10:16:38 2000
@@ -13602,12 +13605,15 @@
 	dflt=''
 	case "$pg" in
 	/*) dflt=$pg;;
+	[a-zA-Z]:/*) dflt=$pg;;
 	esac
 	case "$more" in
 	/*) dflt=$more;;
+	[a-zA-Z]:/*) dflt=$more;;
 	esac
 	case "$less" in
 	/*) dflt=$less;;
+	[a-zA-Z]:/*) dflt=$less;;
 	esac
 	case "$dflt" in
 	'') dflt=/usr/ucb/more;;
--- djgpp/config.over~  Sun Aug 27 14:58:20 2000
+++ djgpp/config.over   Sat Sep  2 11:35:08 2000
@@ -1,5 +1,4 @@
 ln='cp'
-pager='less'

 # fix extension names under DOS
 repair()

End of patch.

Applies to perl 5.7.0 build 6962.

Cheers,
Philip


Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About