1 files changed, 0 insertions, 105 deletions
diff --git a/external/perl/Text-Template-1.46/t/05-safe2.t b/external/perl/Text-Template-1.46/t/05-safe2.t
deleted file mode 100644
index 03534770f1..0000000000
--- a/external/perl/Text-Template-1.46/t/05-safe2.t
+++ /dev/null
@@ -1,105 +0,0 @@
-#!perl
-#
-# test apparatus for Text::Template module
-# still incomplete.
-
-use Text::Template;
-
-BEGIN {
-  eval "use Safe";
-  if ($@) {
-    print "1..0\n";
-    exit 0;
-  }
-}
-
-die "This is the test program for Text::Template version 1.46.
-You are using version $Text::Template::VERSION instead.
-That does not make sense.\n
-Aborting"
-  unless $Text::Template::VERSION == 1.46;
-
-print "1..12\n";
-$n = 1;
-
-$c = new Safe or die;
-
-# Test handling of packages and importing.
-$c->reval('$P = "safe root"');
-$P = $P = 'main';
-$Q::P = $Q::P = 'Q';
-
-# How to effectively test the gensymming?
-
-$t = new Text::Template TYPE => 'STRING', SOURCE => 'package is {$P}'
-    or die;
-
-# (1) Default behavior: Inherit from calling package, `main' in this case.
-$text = $t->fill_in();
-print +($text eq 'package is main' ? '' : 'not '), "ok $n\n";
-$n++;
-
-# (2) When a package is specified, we should use that package instead.
-$text = $t->fill_in(PACKAGE => 'Q');
-print +($text eq 'package is Q' ? '' : 'not '), "ok $n\n";
-$n++;
-
-# (3) When no package is specified in safe mode, we should use the
-# default safe root.
-$text = $t->fill_in(SAFE => $c);
-print +($text eq 'package is safe root' ? '' : 'not '), "ok $n\n";
-$n++;
-
-# (4) When a package is specified in safe mode, we should use the
-# default safe root, after aliasing to the specified package
-$text = $t->fill_in(SAFE => $c, PACKAGE => Q);
-print +($text eq 'package is Q' ? '' : 'not '), "ok $n\n";
-$n++;
-
-# Now let's see if hash vars are installed properly into safe templates
-$t = new Text::Template TYPE => 'STRING', SOURCE => 'hash is {$H}'
-    or die;
-
-# (5) First in default mode
-$text = $t->fill_in(HASH => {H => 'good5'} );
-print +($text eq 'hash is good5' ? '' : 'not '), "ok $n\n";
-$n++;
-
-# (6) Now in packages
-$text = $t->fill_in(HASH => {H => 'good6'}, PACKAGE => 'Q' );
-print +($text eq 'hash is good6' ? '' : 'not '), "ok $n\n";
-$n++;
-
-# (7) Now in the default root of the safe compartment
-$text = $t->fill_in(HASH => {H => 'good7'}, SAFE => $c );
-print +($text eq 'hash is good7' ? '' : 'not '), "ok $n\n";
-$n++;
-
-# (8) Now in the default root after aliasing to a package that
-# got the hash stuffed in
-$text = $t->fill_in(HASH => {H => 'good8'}, SAFE => $c, PACKAGE => 'Q2' );
-print +($text eq 'hash is good8' ? '' : 'not '), "ok $n\n";
-$n++;
-
-# Now let's make sure that none of the packages leaked on each other.
-# (9) This var should NOT have been installed into the main package
-print +(defined $H ? 'not ' : ''), "ok $n\n";
-$H=$H;
-$n++;
-
-# (10) good6 was overwritten in test 7, so there's nothing to test for here.
-print "ok $n\n";
-$n++;
-
-# (11) this value overwrote the one from test 6.
-print +($Q::H eq 'good7' ? '' : 'not '), "ok $n\n";
-$Q::H = $Q::H;
-$n++;
-
-# (12) 
-print +($Q2::H eq 'good8' ? '' : 'not '), "ok $n\n";
-$Q2::H = $Q2::H;
-$n++;
-
-
-