--- a/opt/brother/Printers/DCPL2500D/cupswrapper/brother_lpdwrapper_DCPL2500D 2014-09-29 10:02:44.000000000 +0200 +++ b/opt/brother/Printers/DCPL2500D/cupswrapper/brother_lpdwrapper_DCPL2500D 2016-04-04 00:39:29.552531316 +0200 @@ -44,13 +44,7 @@ $width=-1; $height=-1; #my $basedir = Cwd::realpath ($0); -my $basedir = `readlink $0`; -if ( $basedir eq '' ){ - $basedir = `realpath $0`; -} -chomp($basedir); - -$basedir =~ s/$PRINTER\/cupswrapper\/.*$/$PRINTER\//g; +my $basedir = "/opt/brother/Printers/DCPL2500D"; %units = ( pt => \&pt2dot,