[comp.lang.perl] Bug in printf

piet@cs.ruu.nl (Piet van Oostrum) (03/06/90)

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')