remove commented code

[term-progressbar.git] / t / test.pm

diff --git a/t/test.pm b/t/test.pm
index 482ae7630ab871e7edba69cfdaf927e2e7576d75..f00bc025784d606a6df3ee4c1a982c8bc660fbe9 100644 (file)
--- a/t/test.pm
+++ b/t/test.pm
@@ -100,13 +100,11 @@ The following symbols are exported upon request:
 
 =item find_exec
 
-=item read_file
-
 =back
 
 =cut
 
-@EXPORT_OK = qw( check_req compare evcheck find_exec only_files read_file
+@EXPORT_OK = qw( check_req compare evcheck only_files 
                  save_output restore_output tempdir tmpnam );
 
 # Utility -----------------------------
@@ -628,43 +626,6 @@ is equal.  If the sort flag is present, each file is sorted prior to comparison.
 
 =cut
 
-#XYZ sub _run {
-#XYZ   my ($cmd, $name, $in) = @_;
-#XYZ
-#XYZ   my $infn = defined $in ? tmpnam : '/dev/null';
-#XYZ   my $outfn = tmpnam;
-#XYZ   my $errfn = tmpnam;
-#XYZ
-#XYZ   my $pid = fork;
-#XYZ   croak "Couldn't fork: $!\n"
-#XYZ     unless defined $pid;
-#XYZ
-#XYZ   if ( $pid == 0 ) { # Child
-#XYZ     open STDOUT, '>', $outfn;
-#XYZ     open STDERR, '>', $errfn;
-#XYZ     open STDIN,  '<', $infn;
-#XYZ
-#XYZ     exec @$cmd;
-#XYZ   }
-#XYZ
-#XYZ   my $rv = waitpid $pid, 0;
-#XYZ   my $status = $?;
-#XYZ
-#XYZ   croak "Unexpected waitpid return from child $name: $rv (expected $pid)\n"
-#XYZ     unless $rv == $pid;
-#XYZ
-#XYZ   local $/ = undef;
-#XYZ   local (OUT, ERR);
-#XYZ   open *OUT, '<', $outfn;
-#XYZ   open *ERR, '<', $errfn;
-#XYZ   my $out = <OUT>;
-#XYZ   my $err = <ERR>;
-#XYZ   close *OUT;
-#XYZ   close *ERR;
-#XYZ
-#XYZ   return $status >> 8, $status & 127, $status & 128 , $out, $err
-#XYZ }
-
 # return codes and old-style call semantics left for backwards compatibility
 BEGIN {
   my $savewarn = $SIG{__WARN__};
@@ -1061,56 +1022,6 @@ nothing, if no such file exists.
 
 # defined further up to use in constants
 
-# -------------------------------------
-
-=head2 read_file
-
-=over 4
-
-=item ARGUMENTS
-
-=over 4
-
-=item filename
-
-B<Mandatory>
-
-=item line-terminator
-
-B<Optional>.  Value of C<$/>.  Defaults to C<"\n">.
-
-=back
-
-=item RETURNS
-
-=over 4
-
-=item lines
-
-A list of lines in the file (lines determined by the value of
-line-terminator), as an arrayref.
-
-=back
-
-=back
-
-=cut
-
-sub read_file {
-  my ($fn, $term) = @_;
-
-  $term = "\n"
-    unless defined $term;
-
-  my $fh = do { local *F; *F };
-  sysopen $fh, $fn, O_RDONLY;
-  local $/ = $term;
-  my @lines = <$fh>;
-  close $fh;
-
-  return \@lines;
-}
-
 # ----------------------------------------------------------------------------
 
 =head1 EXAMPLES