PPD: jopt() moved to PPD::PJL

ppd/PPD/PJL.pm

 package PPD::PJL;
 
+use Exporter 'import';
+our @EXPORT = qw(jopt);
+
 use PPD;
 
 sub add_jcl($) {
@@ -10,4 +13,14 @@ sub add_jcl($) {
 	set('JCLEnd', '<1B>%-12345X@PJL EOJ<0A><1B>%-12345X<0A>');
 }
 
+sub jopt {
+	my $out = "";
+	while (@_) {
+		my $key = shift @_;
+		my $val = shift @_;
+		$out .= sprintf('@PJL SET %s=%s<0A>', $key, $val);
+	}
+	return $out;
+}
+
 42;

ppd/gen-nessie-xcpt

@@ -31,17 +31,6 @@ set('cupsFilter', 'application/vnd.cups-pdf 0 /aux/root/xcpt');
 set('ColorDevice', 1);
 set('DefaultColorSpace', 'CMYK');
 
-# FIXME: Librarize
-sub jopt {
-	my $out = "";
-	while (@_) {
-		my $key = shift @_;
-		my $val = shift @_;
-		$out .= sprintf('@PJL SET %s=%s<0A>', $key, $val);
-	}
-	return $out;
-}
-
 define_ui_group({ Key => 'Basic', Name => 'Basic options' });
 
 option({