Index: lib/Video/DVDRip/Project.pm
===================================================================
RCS file: /home/cvsroot/dvdrip/lib/Video/DVDRip/Project.pm,v
retrieving revision 1.41.2.1
diff -u -r1.41.2.1 Project.pm
--- lib/Video/DVDRip/Project.pm	31 Mar 2003 08:54:34 -0000	1.41.2.1
+++ lib/Video/DVDRip/Project.pm	22 Oct 2003 21:06:06 -0000
@@ -166,6 +166,10 @@
 	$dd->Purity(1);
 	my $data = $dd->Dump;
 
+	my $end_marker = "}, 'Video::DVDRip::Project' );\n";
+	my $end_marker_quoted = quotemeta($end_marker);
+	$data =~ s/$end_marker_quoted.*/$end_marker/so;
+
 	$self->set_last_saved_data($last_saved_data);
 	$self->set_filename ($filename);
 
@@ -203,7 +207,11 @@
 	
 	my $fh = FileHandle->new;
 	open ($fh, $filename) or croak "can't read $filename";
-	my $data = join ('', <$fh>);
+	my $data;
+	while (<$fh>) {
+		$data .= $_;
+		last if $data =~ /Video::DVDRip::Project/;
+	}
 	close $fh;
 
 	croak "File is no dvd::rip file"