From 185cbdedecdaef2ba4e4c13ee47cd385785745c1 Mon Sep 17 00:00:00 2001
From: hjp <hjp>
Date: Thu, 24 Apr 2003 14:09:44 +0000
Subject: [PATCH] Fixed test for PNG generation.

---
 TimeSeries.pm | 1 +
 t/0basic.t    | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/TimeSeries.pm b/TimeSeries.pm
index c217d80..af9311c 100644
--- a/TimeSeries.pm
+++ b/TimeSeries.pm
@@ -4,6 +4,7 @@ use File::Temp qw(tempfile);
 use Time::Local;
 use Data::Dumper;
 
+$VERSION = do { my @r=(q$Revision: 1.3 $=~/\d+/g);sprintf "%d."."%02d"x$#r,@r};
 
 sub new {
     my ($class, %opts) = @_;
diff --git a/t/0basic.t b/t/0basic.t
index b907016..6d37db2 100644
--- a/t/0basic.t
+++ b/t/0basic.t
@@ -35,7 +35,7 @@ $ts->add(1.002E9, 3);
 $test = 3;
 my $g = $ts->plot();
 print STDERR "length \$g = ", length($g), "\n";
-if (length($g) > 0 && substr($g, 0, 3) eq "PNG") {
+if (length($g) > 0 && substr($g, 0, 4) eq "\211PNG") {
     print "ok $test\n";
 } else {
     print "not ok $test\n";