perl591delta - what is new for perl v5.9.1


This document describes differences between the 5.9.0 and the 5.9.1 development releases. See perl590delta for the differences between 5.8.0 and 5.9.0.

Incompatible Changes

\fIsubstr()\fP lvalues are no longer fixed-length

The lvalues returned by the three argument form of substr() used to be a fixed length window on the original string. In some cases this could cause surprising action at distance or other undefined behaviour. Now the length of the window adjusts itself to the length of the string assigned to it.

The \f(CW:unique\fP attribute is only meaningful for globals

Now applying

to lexical variables and to subroutines will result in a compilation error.

Core Enhancements

Lexical \f(CW$_\fP

The default variable

can now be lexicalized, by declaring it like any other lexical variable, with a simple

    my $_;

The operations that default on

will use the lexically-scoped version of
when it exists, instead of the global

In a

or a
block, if
was previously my’ed, then the
inside the block is lexical as well (and scoped to the block).

In a scope where

has been lexicalized, you can still have access to the global version of
by using
, or, more simply, by overriding the lexical declaration with
our $_

Tied hashes in scalar context

As of perl 5.8.2/5.9.0, tied hashes did not return anything useful in scalar context, for example when used as boolean tests:

        if (%tied_hash) { ... }

The old nonsensical behaviour was always to return false, regardless of whether the hash is empty or has elements.

There is now an interface for the implementors of tied hashes to implement the behaviour of a hash in scalar context, via the SCALAR method (see perltie). Without a SCALAR method, perl will try to guess whether the hash is empty, by testing if it’s inside an iteration (in this case it can’t be empty) or by calling FIRSTKEY.


Formats were improved in several ways. A new field,

, can be used for variable-width, one-line-at-a-time text. Null characters are now handled correctly in picture lines. Using
together will now produce a compile-time error, as those format fields are incompatible. perlform has been improved, and miscellaneous bugs fixed.

Stacked filetest operators

As a new form of syntactic sugar, it’s now possible to stack up filetest operators. You can now write

-f -w -x $file
in a row to mean
-x $file && -w _ && -f _
. See -X in perlfunc.

Modules and Pragmata

Benchmark In
, cmpthese() and timestr() now use the time statistics of children instead of parent when the selected style is ’nop’.
Carp The error messages produced by
now include spaces between the arguments in function argument lists: this makes long error messages appear more nicely in browsers and other tools.
will now recognize grouping tags (such as
) anywhere in the import list, not only at the beginning.
FindBin A function
is provided to resolve problems where modules in different directories wish to use FindBin.
List::Util You can now weaken references to read only values.
has a new two argument form.
has been added.

Utility Changes

now assumes
as a default action. Previously, it needed to be specified explicitly.

A new utility,

, makes it easy to run an individual regression test at the command line.
is part of Test::Harness, which users of earlier Perl versions can install from CPAN.

The perl debugger now supports a

command, to save the current history to a file, and an
command, which prints the inheritance tree of its argument (if the
module is installed.)


The documentation has been revised in places to produce more standard manpages.

The long-existing feature of

regexps setting
and pos() is now documented.

Performance Enhancements

Sorting arrays in place (

@a = sort @a
) is now optimized to avoid making a temporary copy of the array.

The operations involving case mapping on UTF-8 strings (uc(), lc(),

, etc.) have been greatly speeded up.

Access to elements of lexical arrays via a numeric constant between 0 and 255 is now faster. (This used to be only the case for global arrays.)

Selected Bug Fixes

\s-1UTF\-8\s0 bugs

Using substr() on a UTF-8 string could cause subsequent accesses on that string to return garbage. This was due to incorrect UTF-8 offsets being cached, and is now fixed.

join() could return garbage when the same join() statement was used to process 8 bit data having earlier processed UTF-8 data, due to the flags on that statement’s temporary workspace not being reset correctly. This is now fixed.

Using Unicode keys with tied hashes should now work correctly.

chop() and chomp() used to mangle UTF-8 strings. This has been fixed.

sprintf() used to misbehave when the format string was in UTF-8. This is now fixed.

Threading bugs

Hashes with the

attribute weren’t made read-only in new threads. They are now.

More bugs

$a .. $b
will now work as expected when either

Reading $^E now preserves $!. Previously, the C code implementing $^E did not preserve

, so reading $^E could cause
and therefore
to change unexpectedly.

wasn’t in effect in regexp-eval blocks (

New or Changed Diagnostics

A new deprecation warning, Deprecated use of my() in false conditional, has been added, to warn against the use of the dubious and deprecated construct

    my $x if 0;

See perldiag.

The fatal error DESTROY created new reference to dead object is now documented in perldiag.

A new error,

is aliased to
, is produced when taint checks are enabled and when
has been aliased (and thus doesn’t reflect the program’s environment anymore.)

Changed Internals

These news matter to you only if you either write XS code or like to know about or hack Perl internals (using Devel::Peek or any of the

modules counts), or like to run Perl with the

Reordering of SVt_* constants

The relative ordering of constants that define the various types of

have changed; in particular,
has been moved before
. This is unlikely to make any difference unless you have code that explicitly makes assumptions about that ordering. (The inheritance hierarchy of
objects has been changed to reflect this.)

Removal of \s-1CPP\s0 symbols

The C preprocessor symbols

, which were supposed to give the version number of the oldest perl binary-compatible (resp. source-compatible) with the present one, were not used, and sometimes had misleading values. They have been removed.

Less space is used by ops


structure now uses less space. The
field has been removed and replaced by two one-bit fields,
is now 9 bits long. (Consequently, the
class doesn’t provide an
method anymore.)

New parser

perl’s parser is now generated by bison (it used to be generated by byacc.) As a result, it seems to be a bit more robust.

Configuration and Building

now invokes callbacks regardless of the value of the variable they are called for. Previously callbacks were only invoked in the
case $variable $define)
branch. This change should only affect platform maintainers writing configuration hints files.

The portability and cleanliness of the Win32 makefiles has been improved.

Known Problems

There are still a couple of problems in the implementation of the lexical

: it doesn’t work inside
blocks and with regard to the reverse() built-in used without arguments. (See the TODO tests in t/op/mydef.t.)

Platform Specific Problems

The test ext/IPC/SysV/t/ipcsysv.t may fail on OpenBSD. This hasn’t been diagnosed yet.

On some configurations on AIX 5, one test in lib/Time/Local.t fails. When configured with long doubles, perl may fail tests 224-236 in t/op/pow.t on the same platform.

For threaded builds, ext/threads/shared/t/wait.t has been reported to fail some tests on HP-UX 10.20.

To-do for perl 5.10.0

This is a non-exhaustive, non-ordered, non-contractual and non-definitive list of things to do (or nice to have) for perl 5.10.0 :

Clean up and finish support for assertions. See assertions.

Reimplement the mechanism of lexical pragmas to be more extensible. Fix current pragmas that don’t work well (or at all) with lexical scopes or in run-time eval(STRING) (

for example). MJD has a preliminary patch that implements this.

Fix (or rewrite) the implementation of the


Conversions from byte strings to UTF-8 currently map high bit characters to Unicode without translation (or, depending on how you look at it, by implicitly assuming that the byte strings are in Latin-1). As perl assumes the C locale by default, upgrading a string to UTF-8 may change the meaning of its contents regarding character classes, case mapping, etc. This should probably emit a warning (at least).

Introduce a new special block, UNITCHECK, which is run at the end of a compilation unit (module, file, eval(STRING) block). This will correspond to the Perl 6 CHECK. Perl 5’s CHECK cannot be changed or removed because the backend framework depends on it.

Study the possibility of adding a new prototype character,

, meaning this argument defaults to

Make the peephole optimizer optional.

Allow lexical aliases (maybe via the syntax

my \$alias = \$foo

Fix the bugs revealed by running the test suite with the

switch (via
make test.taintwarn

Make threads more robust.


no 6
no v6
work (opposite of
use 5.005
, etc.).

A test suite for the B module would be nice.

A ponie.

Reporting Bugs

If you find what you think is a bug, you might check the articles recently posted to the comp.lang.perl.misc newsgroup and the perl bug database at . There may also be information at , the Perl Home Page.

If you believe you have an unreported bug, please run the perlbug program included with your release. Be sure to trim your bug down to a tiny but sufficient test case. Your bug report, along with the output of

perl -V
, will be sent off to to be analysed by the Perl porting team.


The Changes file for exhaustive details on what changed.

The INSTALL file for how to build Perl.

The README file for general stuff.

The Artistic and Copying files for copyright information.

openSUSE Logo