Fix generate.pl for Perl 5.6.1.

[pspp] / src / frequencies.q

diff --git a/src/frequencies.q b/src/frequencies.q
index acfeed86d3c65e2327e2b364def9b0778df614d9..d5e669e1652ceb9479596a44aa81a8d74362917b 100644 (file)
--- a/src/frequencies.q
+++ b/src/frequencies.q
@@ -14,8 +14,8 @@
 
    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
-   Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
-   02111-1307, USA. */
+   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
+   02110-1301, USA. */
 
 /*
   TODO:
@@ -627,6 +627,7 @@ postcalc (void *aux UNUSED)
        dump_statistics (v, !dumped_freq_tab);
 
 
+
       if ( chart == GFT_HIST) 
        {
          double d[frq_n_stats];
@@ -654,6 +655,7 @@ postcalc (void *aux UNUSED)
        }
 
 
+
       cleanup_freq_tab (v);
 
     }
@@ -866,7 +868,7 @@ frq_custom_grouped (struct cmd_frequencies *cmd UNUSED)
          {
            nl = ml = 0;
            dl = NULL;
-           while (token == T_NUM)
+           while (lex_integer ())
              {
                if (nl >= ml)
                  {
@@ -1612,6 +1614,7 @@ freq_tab_to_slice_array(const struct freq_tab *frq_tab,
 
 
 
+
 static void
 do_piechart(const struct variable *var, const struct freq_tab *frq_tab)
 {
@@ -1625,6 +1628,7 @@ do_piechart(const struct variable *var, const struct freq_tab *frq_tab)
   free(slices);
 }
 
+
 /* 
    Local Variables:
    mode: c