Path: utzoo!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!uunet!mcsun!hp4nl!ruuinf!cs.ruu.nl
From: piet@cs.ruu.nl (Piet van Oostrum)
Newsgroups: comp.lang.perl
Subject: Bug in printf (*x) in perl patch-level 12
Message-ID: <2594@ruuinf.cs.ruu.nl>
Date: 6 Mar 90 11:20:55 GMT
Sender: news@ruuinf.cs.ruu.nl
Reply-To: piet@cs.ruu.nl (Piet van Oostrum)
Organization: Dept of Computer Science, Utrecht University, The Netherlands
Lines: 23

Perl patch level 12 no longer prints "*x" if a symbol table entry is given
as a parameter. The problem is that Larry changed "Stab" to "StB" except in
doarg.c (function do_sprintf). I wonder why? Ever heard of 'abstract data
types', Larry?  :=)

#! /local/bin/perl

sub prname
  { local(*x) = @_ ;
    print @x, "\n" ;
    print *x, "\n" ;
    print sprintf("%s\n",*x) ;
    printf("%s\n",*x) ;
  }

@aap = ( 1, 2, 3, 4) ;

do prname(*aap) ;
-- 
Piet* van Oostrum, Dept of Computer Science, Utrecht University,
Padualaan 14, P.O. Box 80.089, 3508 TB Utrecht, The Netherlands.
Telephone: +31-30-531806   Uucp:   uunet!mcsun!hp4nl!ruuinf!piet
Telefax:   +31-30-513791   Internet:  piet@cs.ruu.nl   (*`Pete')