1 files changed, 0 insertions, 91 deletions
diff --git a/external/perl/Text-Template-1.46/t/07-safe3.t b/external/perl/Text-Template-1.46/t/07-safe3.t
deleted file mode 100644
index 5f438f6148..0000000000
--- a/external/perl/Text-Template-1.46/t/07-safe3.t
+++ /dev/null
@@ -1,91 +0,0 @@
-#!perl
-#
-# test apparatus for Text::Template module
-
-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..3\n";
-
-$n=1;
-
-# Test the OUT feature with safe compartments
-
-$template = q{
-This line should have a 3: {1+2}
-
-This line should have several numbers:
-{ $t = ''; foreach $n (1 .. 20) { $t .= $n . ' ' } $t }
-};
-
-$templateOUT = q{
-This line should have a 3: { $OUT = 1+2 }
-
-This line should have several numbers:
-{ foreach $n (1 .. 20) { $OUT .= $n . ' ' } }
-};
-
-$c = new Safe;
-
-# Build templates from string
-$template = new Text::Template ('type' => 'STRING', 'source' => $template,
-			       SAFE => $c)
-  or die;
-$templateOUT = new Text::Template ('type' => 'STRING', 'source' => $templateOUT,
-				  SAFE => $c)
-  or die;
-
-# Fill in templates
-$text = $template->fill_in()
-  or die;
-$textOUT = $templateOUT->fill_in()
-  or die;
-
-# (1) They should be the same
-print +($text eq $textOUT ? '' : 'not '), "ok $n\n";
-$n++;
-
-# (2-3)  "Joel Appelbaum" <joel@orbz.com> <000701c0ac2c$aed1d6e0$0201a8c0@prime>
-# "Contrary to the documentation the $OUT variable is not always
-# undefined at the start of each program fragment.  The $OUT variable
-# is never undefined after it is used once if you are using the SAFE
-# option.  The result is that every fragment after the fragment that
-# $OUT was used in is replaced by the old $OUT value instead of the
-# result of the fragment.  This holds true even after the
-# Text::Template object goes out of scope and a new one is created!"
-#
-# Also reported by Daini Xie.
-
-{
-  my $template = q{{$OUT = 'x'}y{$OUT .= 'z'}};
-  my $expected = "xyz";
-  my $s = Safe->new;
-  my $o = Text::Template->new(type => 'string',
-                              source => $template,
-                             );
-  for (1..2) {
-    my $r = $o->fill_in(SAFE => $s);
-    if ($r ne $expected) {
-      print "not ok $n # <$r>\n";
-    } else {
-      print "ok $n\n";
-    }
-    $n++;
-  }
-}
-
-exit;
-