wdtager : make compatible with older perl version.

	modified:   wdtager