Re: Why *not* use UNIVERSAL qw( isa can ) ; ??

[p5sagit/p5-mst-13.2.git] / configure.com

diff --git a/configure.com b/configure.com
index 0afe56e..119e699 100644 (file)
--- a/configure.com
+++ b/configure.com
@@ -728,8 +728,11 @@ $       DECK
 $       EOD
 $       bool_dflt="n"
 $       rp="Do you really want to continue? [''bool_dflt'] "
-$       IF (fastread) THEN fastread := FALSE
+$       fastread_save = fastread
+$       fastread := FALSE
 $       GOSUB myread
+$       fastread = fastread_save
+$       delete/symbol fastread_save
 $       IF ans
 $       THEN
 $         echo4 "Okay, continuing."