Mac-Glue

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN


   Cleaned up.

* v1.17, Wednesday, February 18, 2004

   Added option to target by PID, explicit option to target by bundle ID;
   cleaned up docs. (has)

   Only allow data type to be set to typeUnicodeText if Encode is available.

   Don't include BOM in UTF-16 data (use big-endian instead).  (Bill Birkett)

   Fix documentation on ERRORS handler, and handling of error description.
   Add error code (e.g., "errAEDescNotFound").  Add an optional default
   ERRORS handler (setting it to a value of 1).

   Added typeLongDateTime (convert to/from Mac OS); added Time::Epoch.
   (Lars Eggert)

   Make AE records guess better at types.

Glue.pm  view on Meta::CPAN

			return Mac::Files::_Unix2Mac($_[0]);
		} else {
			return $_[0];
		}
	},

	# empty four bytes for lang code
	typeIntlText()		=> sub {'    ' . MacPack(typeChar, $_[0])},
	typeUnicodeText()	=> sub {
		if ($ENCODE) {
			# BOM sometimes causes problems, so it is optional, and
			# we leave it off, and use native ordering explicitly
			require Config;
			my $bom = $Config::Config{byteorder} eq '1234' ? 'LE' : 'BE';	
			return new AEDesc typeUnicodeText,
				Encode::encode('UTF-16'.$bom, $_[0]);
		} else { # oh well!
			return new AEDesc typeChar, $_[0];
		}
	}
);



( run in 0.444 second using v1.01-cache-2.11-cpan-e9daa2b36ef )