-
Notifications
You must be signed in to change notification settings - Fork 542
New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
PATCH: move binmode method to IO::Handle from IO::File [rt.cpan.org #65107] #17457
Labels
dist-IO
issues in the dual-life blead-first IO distribution
Comments
toddr
added
Needs Triage
dist-IO
issues in the dual-life blead-first IO distribution
labels
Jan 20, 2020
diff --git a/dist/IO/lib/IO/File.pm b/dist/IO/lib/IO/File.pm
index d33d090..c26ccf3 100644
--- a/dist/IO/lib/IO/File.pm
+++ b/dist/IO/lib/IO/File.pm
@@ -93,14 +93,6 @@ it passes all the three arguments to the three-argument C<open> operator.
For convenience, C<IO::File> exports the O_XXX constants from the
Fcntl module, if this module is available.
-=item binmode( [LAYER] )
-
-C<binmode> sets C<binmode> on the underlying C<IO> object, as documented
-in C<perldoc -f binmode>.
-
-C<binmode> accepts one optional parameter, which is the layer to be
-passed on to the C<binmode> call.
-
=back
=head1 NOTE
@@ -188,17 +180,4 @@ sub open {
open($fh, $file);
}
-################################################
-## Binmode
-##
-
-sub binmode {
- ( @_ == 1 or @_ == 2 ) or croak 'usage $fh->binmode([LAYER])';
-
- my($fh, $layer) = @_;
-
- return binmode $$fh unless $layer;
- return binmode $$fh, $layer;
-}
-
1;
diff --git a/dist/IO/lib/IO/Handle.pm b/dist/IO/lib/IO/Handle.pm
index f4114ad..7de9bcb 100644
--- a/dist/IO/lib/IO/Handle.pm
+++ b/dist/IO/lib/IO/Handle.pm
@@ -188,6 +188,14 @@ current setting if C<BOOL> is not given.
If an error occurs C<blocking> will return undef and C<$!> will be set.
+=item binmode( [LAYER] )
+
+C<binmode> sets C<binmode> on the underlying C<IO> object, as documented
+in C<perldoc -f binmode>.
+
+C<binmode> accepts one optional parameter, which is the layer to be
+passed on to the C<binmode> call.
+
=back
@@ -632,4 +640,17 @@ sub printflush {
}
}
+################################################
+## Binmode
+##
+
+sub binmode {
+ ( @_ == 1 or @_ == 2 ) or croak 'usage $fh->binmode([LAYER])';
+
+ my($fh, $layer) = @_;
+
+ return binmode $$fh unless $layer;
+ return binmode $$fh, $layer;
+}
+
1; |
tonycoz
added a commit
to tonycoz/perl5
that referenced
this issue
Oct 23, 2023
since you can binmode() any handle. Fixes Perl#17457 which is most of this change, I only added tests, such as they are.
tonycoz
added a commit
to tonycoz/perl5
that referenced
this issue
Oct 30, 2023
since you can binmode() any handle. Fixes Perl#17457 which is most of this change, I only added tests, such as they are.
tonycoz
added a commit
to tonycoz/perl5
that referenced
this issue
Dec 6, 2023
since you can binmode() any handle. Fixes Perl#17457 which is most of this change, I only added tests, such as they are.
tonycoz
added a commit
that referenced
this issue
Dec 7, 2023
since you can binmode() any handle. Fixes #17457 which is most of this change, I only added tests, such as they are.
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
Migrated from rt.cpan.org#65107 (status was 'new')
Requestors:
From ambrus@math.bme.hu on 2011-01-25 16:06:08:
This is a bug report for perl from ambrus@math.bme.hu,
generated with the help of perlbug 1.39 running under perl 5.12.3.
[Please describe your issue here]
The binmode method belongs to the IO::Handle class, because PerlIO
layers can be applied to any kind of file descriptor, not the IO::File
subclass where it currently is. The patch below (based on perl 5.13.9)
moves the method to the IO::Handle class.
Perl Info
The text was updated successfully, but these errors were encountered: