Commits

Anonymous committed 10516f1

Limiting choice to .pdf

Comments (0)

Files changed (1)

print_in_parts.pl

 sub run {
     my $self = shift;
 
+    unless($self->file =~ /\.pdf$/i) {
+        die "Only .pdf files are currently handled\n";
+    }
+
     my $doc = PDF::API2->open($self->file);
     my $pages_count = $doc->pages;
     undef $doc;