[Graph-dev] Chart::Graph::Xmgrace patch

[Jon Stearley]

--s9fJI615cBHmzTOP
Content-Type: text/plain;
 charset=us-ascii
Content-Disposition: inline
Content-Transfer-Encoding: 7bit

hello, the below patch fixes suboptions on my debian-testing/perl-5.6.1
install.  root issue was a simple typo in Graph_Options.pm.  fyi and
thanks for the code!

-- 
+--------------------------------------------------------------+
| Jon Stearley                  (505) 845-7571  (FAX 844-2067) |
| Sandia National Laboratories  Scalable Systems Integration   |
+--------------------------------------------------------------+

--s9fJI615cBHmzTOP
Content-Type: text/plain;
 charset=us-ascii
Content-Disposition: attachment;
 filename=xmgrace.patch
Content-Transfer-Encoding: 7bit

# patch to fix Chart::Graph::Xmgrace suboptions and legends
# apply ie 
#   cd /usr/local/share/perl/5.6.1/Chart/Graph
#   patch -p1 <this_patch_file

diff -Naur Graph/Xmgrace/Graph_Options.pm /tmp/Graph/Xmgrace/Graph_Options.pm
--- Graph/Xmgrace/Graph_Options.pm	2001-10-12 16:39:48.000000000 -0600
+++ /tmp/Graph/Xmgrace/Graph_Options.pm	2003-02-17 14:33:54.000000000 -0700
@@ -418,7 +418,7 @@
     if ($pre_sub) {
 	@xtra_opts = split(/;\n*\s*/, $pre_sub);
     
-	foreach $option (@xqtra_opts) {
+	foreach $option (@xtra_opts) {
 	    $self->_printline($handle, "$option\n", $self->{"length"});
 	}
     }
diff -Naur Graph/Xmgrace.pm /tmp/Graph/Xmgrace.pm
--- Graph/Xmgrace.pm	2001-10-23 16:17:37.000000000 -0600
+++ /tmp/Graph/Xmgrace.pm	2003-02-14 15:26:32.000000000 -0700
@@ -95,6 +95,7 @@
 			     "set presentation" => "XY",
 			     "options" => $def_graph_appearance->{"XY graph"},
 			     "title" => "untitled data set", # comment, legend
+			     "legend" => "", # legend
 			     "data format" => undef, # columns, matrix, or file
 			    );
 
@@ -431,8 +432,8 @@
 
      foreach my $set_object (@cum_data_set_objects) {
 #       XXX This code breaks under Perl 5.6 - not sure why XXX
-# 	$set_object->{options}->{options}->print($handle,"s" . 
-# 						 "$set_object->{set_number}");
+ 	$set_object->{options}->{options}->print($handle,"s" . 
+ 						 "$set_object->{set_number}");
      }
 
     # print data sets

--s9fJI615cBHmzTOP--