$NetBSD: patch-ao,v 1.1 1999/11/01 03:31:46 jlam Exp $

--- examples/fly-tester.pl.orig	Thu Jun 10 19:14:53 1999
+++ examples/fly-tester.pl	Sun Oct 31 00:28:28 1999
@@ -1,4 +1,4 @@
-#!/usr/local/web/bin/perl
+#!/usr/pkg/bin/perl
 ### ---------------------------------------------------------------------- ###
 #
 # Fly tester
@@ -108,9 +108,9 @@
 		exit 0;
 	}
 	open INPUT, ">$inputfile" or die "Couldn't open $inputfile for writing: $!\n"; print INPUT $code; close INPUT;
-	my $return_code = system("$flyprog -i $inputfile -o $output_area/fly.$$.gif > $outputfile 2>&1");
+	my $return_code = system("$flyprog -i $inputfile -o $output_area/fly.$$.png > $outputfile 2>&1");
 	if($return_code == 0) {
-		$cell1 =  $q->p({-align=>'center'}, $q->img({-src=>"${graphs_url}/fly.$$.gif",
+		$cell1 =  $q->p({-align=>'center'}, $q->img({-src=>"${graphs_url}/fly.$$.png",
 			-alt=>"[Generated Graph]", -border=>"2"}));
 		my $url = $q->url();
 		if($diags) {