1
0
mirror of https://git.FreeBSD.org/ports.git synced 2025-01-25 09:34:11 +00:00
freebsd-ports/japanese/p5-PDFJ/files/patch-XPDFJ.pm
2007-05-26 12:34:33 +00:00

12 lines
297 B
Perl

--- XPDFJ.pm.orig Fri Mar 30 15:01:05 2007
+++ XPDFJ.pm Fri Mar 30 15:01:17 2007
@@ -122,7 +122,7 @@
sub _method_parse {
my($self, $tree, $this, $args, $mode) = @_;
my @result;
- my $mmode = $mode;
+ my $mmode = $mode || "";
my $mlevel = 0;
if( $mmode =~ s/:(\d+)$// ) {
$mlevel = $1;