--- dumper-src/generic-dumper.pl.in.orig	1999-04-17 19:58:03 +0400

+++ dumper-src/generic-dumper.pl.in	2006-03-29 00:25:25 +0400

@@ -1,4 +1,5 @@

-

+#!@PERL@

+#

 $command = $ARGV[0];

 if ($command eq "privilege") {

@@ -315,11 +315,11 @@

 sub parse_options() {

    my($no_option) = @_;

-   my($options, @options, $option, $name, $option_name, $value);

+   my($no_options, @options, $option, $name, $option_name, $value);

    while($no_option <= $#ARGV) {

-      $options = $ARGV[${no_option}];

-      @options = split (/;/,$options);

+      $no_options = $ARGV[${no_option}];

+      @options = split (/;/,$no_options);

       foreach $option (@options) {

          if( $option =~ /=/ ) {

             ($name,$value) = split(/=/,$option);