diff options
| author |   millert <millert@openbsd.org> | 1997-11-30 07:45:47 +0000 |
|---|---|---|
| committer | millert <millert@openbsd.org> | 1997-11-30 07:45:47 +0000 |
| commit | ba47ec9da08b5e716a167fd61325b8edfcb66dd6 (patch) | |
| tree | 91bc543f2ed3206add10a699e40e1120ba95f742 /gnu/usr.bin/perl/lib/SelectSaver.pm | |
| parent | verbose eisa/pci (diff) | |
| download | wireguard-openbsd-ba47ec9da08b5e716a167fd61325b8edfcb66dd6.tar.xz wireguard-openbsd-ba47ec9da08b5e716a167fd61325b8edfcb66dd6.zip | |
perl 5.004_04
Diffstat (limited to 'gnu/usr.bin/perl/lib/SelectSaver.pm')
| -rw-r--r-- | gnu/usr.bin/perl/lib/SelectSaver.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gnu/usr.bin/perl/lib/SelectSaver.pm b/gnu/usr.bin/perl/lib/SelectSaver.pm index 4c764bedcf1..5f569222fcc 100644 --- a/gnu/usr.bin/perl/lib/SelectSaver.pm +++ b/gnu/usr.bin/perl/lib/SelectSaver.pm @@ -38,8 +38,10 @@ use Symbol; sub new { @_ >= 1 && @_ <= 2 or croak 'usage: new SelectSaver [FILEHANDLE]'; - my $fh = (@_ > 1) ? (select qualify($_[1], caller)) : select; - bless [$fh], $_[0]; + my $fh = select; + my $self = bless [$fh], $_[0]; + select qualify($_[1], caller) if @_ > 1; + $self; } sub DESTROY { |