token; if not, the DATA filehandle will be left open in binary mode.
Earlier versions always opened the DATA filehandle in text mode.
-The glob() operator is implemented via the L<File::Glob> extension,
+The glob() operator is implemented via the C<File::Glob> extension,
which supports glob syntax of the C shell. This increases the flexibility
of the glob() operator, but there may be compatibility issues for
programs that relied on the older globbing syntax. If you want to
=head2 Why do I sometimes get an "Argument list too long" when I use E<lt>*E<gt>?
The C<E<lt>E<gt>> operator performs a globbing operation (see above).
-By default glob() forks csh(1) to do the actual glob expansion, but
+In Perl versions earlier than v5.6.0, the internal glob() operator forks
+csh(1) to do the actual glob expansion, but
csh can't handle more than 127 items and so gives the error message
C<Argument list too long>. People who installed tcsh as csh won't
have this problem, but their users may be surprised by it.
-To get around this, either do the glob yourself with readdir() and
-patterns, or use a module like Glob::KGlob, one that doesn't use the
-shell to do globbing. This is expected to be fixed soon.
+To get around this, either upgrade to Perl v5.6.0 or later, do the glob
+yourself with readdir() and patterns, or use a module like Glob::KGlob,
+one that doesn't use the shell to do globbing.
=head2 Is there a leak/bug in glob()?
If EXPR is omitted, C<$_> is used. The C<E<lt>*.cE<gt>> operator is
discussed in more detail in L<perlop/"I/O Operators">.
+Beginning with v5.6.0, this operator is implemented using the standard
+C<File::Glob> extension. See L<File::Glob> for details.
+
=item gmtime EXPR
Converts a time as returned by the time function to a 9-element list
chmod 0644, $_;
}
-is equivalent to
+is roughly equivalent to:
open(FOO, "echo *.c | tr -s ' \t\r\f' '\\012\\012\\012\\012'|");
while (<FOO>) {
chmod 0644, $_;
}
-In fact, it's currently implemented that way, but this is expected
-to be made completely internal in the near future. (Which means
-it will not work on filenames with spaces in them unless you have
-csh(1) on your machine.) Of course, the shortest way to do the
-above is:
+except that the globbing is actually done internally using the standard
+C<File::Glob> extension. Of course, the shortest way to do the above is:
chmod 0644, <*.c>;
-Because globbing currently invokes a shell, it's often faster to
-call readdir() yourself and do your own grep() on the filenames.
-Furthermore, due to its current implementation of using a shell,
-the glob() routine may get "Arg list too long" errors (unless you've
-installed tcsh(1L) as F</bin/csh> or hacked your F<config.sh>).
-
A (file)glob evaluates its (embedded) argument only when it is
starting a new list. All values must be read before it will start
over. In list context, this isn't important because you automatically
exec "echo", $arg; # Secure (doesn't use the shell)
exec "sh", '-c', $arg; # Considered secure, alas!
- @files = <*.c>; # Always insecure (uses csh)
- @files = glob('*.c'); # Always insecure (uses csh)
+ @files = <*.c>; # insecure (uses readdir() or similar)
+ @files = glob('*.c'); # insecure (uses readdir() or similar)
If you try to do something insecure, you will get a fatal error saying
something like "Insecure dependency" or "Insecure $ENV{PATH}". Note that you
=back
-=head2 Built-in globbing
-
-Currently the C<E<lt>*.cE<gt>> syntax calls the c shell. This causes
-problems on sites without csh, systems where fork() is expensive, and
-setuid environments. Decide between Glob::BSD and File::KGlob, move
-it into the core, and make Perl use it for globbing. Ben Holzman and
-Tye McQueen have claimed the pumpkin for this.
-
=head1 Perl Internals
=head2 magic_setisa
=head1 Win32 Stuff
-=head2 Get PERL_OBJECT building under gcc
-
-B<Part done>, according to Sarathy. It builds under egcs on win32,
-but doesn't run for occult reasons. If anyone knows the right
-breed of chicken to sacrifice, please speak up.
-
=head2 Rename new headers to be consistent with the rest
=head2 Sort out the spawnvp() mess
=head2 Work out DLL versioning
-=head2 Get PERL_OBJECT building on non-win32
-
=head2 Style-check
=head1 Would be nice to have
=head2 Filenames
-Make filenames in the distribution and in the standard module set
+Keep filenames in the distribution and in the standard module set
be 8.3 friendly where feasible. Good luck changing the standard
-modules, though. B<Done>.
-
-=head2 Proper tied array support
-
-This was B<done> in 5.005 by Nick Ing-Simmons.
+modules, though.
=head2 Foreign lines
CPP-space: stop malloc()/free() pollution unless asked
-=head2 Explain tool
-
-Given a piece of Perl code, say what it does. B::Deparse is doing
-this. B<Done>.
-
=head2 ISA.pm
Rename and alter ISA.pm. B<Done>. It is now base.pm.
-=head2 Automate maintenance of most PERL_OBJECT code
-
-B<Done>, says Sarathy.
-
-=head2 -iprefix.
-
-Added in 5.004_70. B<Done>
-
=head2 gettimeofday
See Time::HiRes.
-=head2 reference to compiled regexp
-
-B<done> This is the qr// support in 5.005.
-
-=head2 eval qw() at compile time
-
-qw() is presently compiled as a call to split. This means the split
-happens at runtime. Change this so qw() is compiled as a real list
-assignment. This also avoids surprises like:
-
- $a = () = qw(What will $a hold?);
-
-B<Done>. Tom Hughes submitted a patch that went into 5.005_55.
-
=head2 autocroak?
-B<Done>. This is the Fatal.pm module, so any builtin that that does
+This is the Fatal.pm module, so any builtin that that does
not return success automatically die()s. If you're feeling brave, tie
this in with the unified exceptions scheme.
-=head2 Status variable
-
-$^C to track compiler/checker status. B<Done> in 5.005_54.
-
=cut
ENTER;
#ifndef VMS
+ /* If we're not using an external glob, just let readdir() tainting
+ * do its thing. Otherwise, engage paranoia mode. */
+#if defined(PERL_EXTERNAL_GLOB)
if (PL_tainting) {
/*
* The external globbing program may use things we can't control,
TAINT;
taint_proper(PL_no_security, "glob");
}
+#endif /* PERL_EXTERNAL_GLOB */
#endif /* !VMS */
SAVESPTR(PL_last_in_gv); /* We don't want this to be permanent. */
projects / p5sagit/p5-mst-13.2.git / commitdiff