diff options
author | Rashed Abdel-Tawab <rashed@linux.com> | 2019-09-17 11:03:28 -0700 |
---|---|---|
committer | Rashed Abdel-Tawab <rashed@linux.com> | 2019-09-18 10:27:19 -0700 |
commit | 3bddcccafafd53db94e0b890d853243f4b9a5913 (patch) | |
tree | 003ac7e32b2820ffb5b9620379a461ab3830b0fc /linux-x86/lib/perl-base/SelectSaver.pm | |
parent | f7be4a3ec6bd6fbd356e0c54024366d43e30ea0f (diff) | |
download | android_prebuilts_tools-lineage-3bddcccafafd53db94e0b890d853243f4b9a5913.tar.gz android_prebuilts_tools-lineage-3bddcccafafd53db94e0b890d853243f4b9a5913.tar.bz2 android_prebuilts_tools-lineage-3bddcccafafd53db94e0b890d853243f4b9a5913.zip |
Move perl modules to common dir
These aren't platform dependent
Change-Id: I5e970980b4914d21d2e7b1d540707fd46f3751df
Diffstat (limited to 'linux-x86/lib/perl-base/SelectSaver.pm')
-rw-r--r-- | linux-x86/lib/perl-base/SelectSaver.pm | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/linux-x86/lib/perl-base/SelectSaver.pm b/linux-x86/lib/perl-base/SelectSaver.pm deleted file mode 100644 index 4ccb837..0000000 --- a/linux-x86/lib/perl-base/SelectSaver.pm +++ /dev/null @@ -1,22 +0,0 @@ -package SelectSaver; - -our $VERSION = '1.02'; - -require 5.000; -use Carp; -use Symbol; - -sub new { - @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )'; - my $fh = select; - my $self = bless \$fh, $_[0]; - select qualify($_[1], caller) if @_ > 1; - $self; -} - -sub DESTROY { - my $self = $_[0]; - select $$self; -} - -1; |