Select Code to Download

1 #!/usr/bin/perl -w
2 # $Id: dtddiff,v 2.2 2005/07/16 03:22:57 ehood Exp $
...
37 my $outfh = \*STDOUT ;
38 select ($outfh );
39 $opts {'output'}=lc($opts {'output'});

980 sub output_print_h {
981 my $fh = shift ;
...
1023 my $output = $opts {'output'};
1024
1025 if($output eq 'xml') {

Use of uninitialized value $output in string eq at C:\PRIVATE\Tools\Pe
+rl\site\bin/dtddiffrsg line 1025.
Use of uninitialized value $output in string eq at C:\PRIVATE\Tools\Pe
+rl\site\bin/dtddiffrsg line 1003.