--- presentps	Thu Feb 26 04:35:49 2004
+++ /home/zvezdan/presentps	Tue Dec 21 20:14:23 2004
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/local/bin/perl
 
 # presentps - make a presentation from PostScript input
 #
@@ -15,6 +15,10 @@
 # Version: 1.3
 #    Changed the View type for links to prevent changing of the fitting
 #    for wide-screens.
+# Date: July 07, 2004
+# Version: 1.4
+#    Adjusted for groff 1.19.2: Leaves stuff between BeginDocument and
+#    EndDocument unprocessed.
 #
 #    Copyright (C) 2001  Bob Diertens
 #
@@ -416,6 +420,15 @@
 	    s/ EP$//;
 	    push @page, $_;
 	    push @page, "EP\n";
+	} elsif (/^%%BeginDocument:/) {
+	    # prevent processing of included document
+	    push @page, $_;
+	    while (<>) {
+		push @page, $_;
+		if (/^%%EndDocument$/) {
+		    last;
+		}
+	    }
 	} elsif (/^%%Trailer$/) {
 	    $lastpage = 1;
 	    $nextln = $_;