1 files changed, 21 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/Crypt/Random/Provider/devurandom.pm b/Master/tlpkg/tlperl/lib/Crypt/Random/Provider/devurandom.pm
new file mode 100755
index 00000000000..d24d4b064ac
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/Crypt/Random/Provider/devurandom.pm
@@ -0,0 +1,21 @@
+#!/usr/bin/perl -sw
+##
+##
+##
+## Copyright (c) 2001, Vipul Ved Prakash.  All rights reserved.
+## This code is free software; you can redistribute it and/or modify
+## it under the same terms as Perl itself.
+##
+## $Id: devurandom.pm,v 1.2 2001/06/22 18:16:29 vipul Exp $
+
+package Crypt::Random::Provider::devurandom; 
+use strict;
+use lib qw(lib);
+use Crypt::Random::Provider::File;
+use vars qw(@ISA);
+@ISA = qw(Crypt::Random::Provider::File);
+
+sub _defaultsource { return "/dev/urandom" } 
+
+1;
+