diff options
author | Zoltan Arvai <zarvai@inf.u-szeged.hu> | 2014-03-27 17:27:22 +0100 |
---|---|---|
committer | Zoltan Arvai <zarvai@inf.u-szeged.hu> | 2014-03-28 18:46:12 +0100 |
commit | a6014652040e76de08e643b49b69fc97cb5bfd62 (patch) | |
tree | 756e51a1a5fc717e2a15a84aca686eb7fd43ff7d /chromium/third_party/cygwin/lib/perl5/5.10/Memoize/AnyDBM_File.pm | |
parent | d12a5818c08a6e4ca207a0bb1688cb4d82c20460 (diff) | |
download | qtwebengine-chromium-a6014652040e76de08e643b49b69fc97cb5bfd62.tar.gz |
Add perl to cygwin
On Windows third_party/WebKit build depends on cygwin's perl version.
Change-Id: Icf6393906c0f977fca9ff652a8abca9dacb60765
Reviewed-by: Andras Becsi <andras.becsi@digia.com>
Diffstat (limited to 'chromium/third_party/cygwin/lib/perl5/5.10/Memoize/AnyDBM_File.pm')
-rw-r--r-- | chromium/third_party/cygwin/lib/perl5/5.10/Memoize/AnyDBM_File.pm | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/chromium/third_party/cygwin/lib/perl5/5.10/Memoize/AnyDBM_File.pm b/chromium/third_party/cygwin/lib/perl5/5.10/Memoize/AnyDBM_File.pm new file mode 100644 index 00000000000..91f960962f9 --- /dev/null +++ b/chromium/third_party/cygwin/lib/perl5/5.10/Memoize/AnyDBM_File.pm @@ -0,0 +1,31 @@ +package Memoize::AnyDBM_File; + +=head1 NAME + +Memoize::AnyDBM_File - glue to provide EXISTS for AnyDBM_File for Storable use + +=head1 DESCRIPTION + +See L<Memoize>. + +=cut + +use vars qw(@ISA $VERSION); +$VERSION = 0.65; +@ISA = qw(DB_File GDBM_File Memoize::NDBM_File Memoize::SDBM_File ODBM_File) unless @ISA; + +my $verbose = 1; + +my $mod; +for $mod (@ISA) { +# (my $truemod = $mod) =~ s/^Memoize:://; +# my $file = "$mod.pm"; +# $file =~ s{::}{/}g; + if (eval "require $mod") { + print STDERR "AnyDBM_File => Selected $mod.\n" if $Verbose; + @ISA = ($mod); # if we leave @ISA alone, warnings abound + return 1; + } +} + +die "No DBM package was successfully found or installed"; |