# HG changeset patch
# User Pascal Dupuis <Pascal.Dupuis@uclouvain.be>
# Date 1314199938 14400
# Node ID b12e2cffaa2f245bf3ecea7e4aa7d7fc85f58a3a
# Parent  dfab2a8ca545c358d63e773ce14fb3e8773e03be
fix scanf problem with reading I (bug #33722)

* oct-stream.cc (octave_scan<> (std::istream&, const
scanf_format_elt&, double*)): Put characters back on input stream when
Inf is not found.

diff --git a/src/oct-stream.cc b/src/oct-stream.cc
--- a/src/oct-stream.cc
+++ b/src/oct-stream.cc
@@ -1352,17 +1352,24 @@
                                 is.putback (c3);
                                 is.putback (c2);
                                 is.putback (c1);
-
+                                
                                 is >> ref;
                               }
-                        }
-                      else
-                        {
-                          is.putback (c2);
-                          is.putback (c1);
-
-                          is >> ref;
-                        }
+                          }
+                        else
+                          {
+                            is.putback (c2);
+                            is.putback (c1);
+                            
+                            is >> ref;
+                          }
+                      }
+                    else
+                      {
+                        is.putback (c2);
+                        is.putback (c1);
+                        
+                        is >> ref;
                       }
                   }
               }