Author: coke
Date: Sun Dec 28 18:01:01 2008
New Revision: 34535
Modified:
trunk/DEPRECATED.pod
trunk/src/io.c
Log:
Remove [DEPRECATED] open file modes.
Modified: trunk/DEPRECATED.pod
==============================================================================
--- trunk/DEPRECATED.pod (original)
+++ trunk/DEPRECATED.pod Sun Dec 28 18:01:01 2008
@@ -51,11 +51,6 @@
See RT #58410.
-=item * C<open> opcode mode string [post 0.8.2]
-
-The C<open> opcode will change from Perl-style mode-strings to 'r' for read,
-'w' for write, 'a' for append, and 'p' for pipe.
-
=item * C<infix> and C<n_infix> opcodes [post 0.8.2]
These opcodes were only used by the old MMD system. See TT #7.
Modified: trunk/src/io.c
==============================================================================
--- trunk/src/io.c (original)
+++ trunk/src/io.c Sun Dec 28 18:01:01 2008
@@ -73,51 +73,6 @@
}
}
- /* These comparisons are put in place for backward compatibility, and will
- * be removed after a deprecation cycle. */
- if (flags == 0) {
- INTVAL first = string_index(interp, mode_str, 0);
- INTVAL second = string_index(interp, mode_str, 1);
- switch (first) {
- case '+':
- flags |= (PIO_F_WRITE | PIO_F_READ);
- switch (second) {
- case '<':
- break;
- case '>':
- flags |= PIO_F_TRUNC;
- break;
- default:
- return 0;
- }
- break;
- case '<':
- flags |= PIO_F_READ;
- break;
- case '>':
- flags |= PIO_F_WRITE;
- if (second == '>') {
- flags |= PIO_F_APPEND;
- }
- else {
- flags |= PIO_F_TRUNC;
- }
- break;
- case '-': /* -| read from pipe */
- if (second == '|') {
- flags |= PIO_F_PIPE | PIO_F_READ;
- }
- break;
- case '|': /* |- write to pipe */
- if (second == '-') {
- flags |= PIO_F_PIPE | PIO_F_WRITE;
- }
- break;
- default:
- return 0;
- }
- }
-
return flags;
}
