equal
deleted
inserted
replaced
28 Genutl_StringToVersion |
28 Genutl_StringToVersion |
29 Genutl_ParseVersionedName |
29 Genutl_ParseVersionedName |
30 Genutl_NormaliseVersionedName |
30 Genutl_NormaliseVersionedName |
31 ); |
31 ); |
32 |
32 |
33 use strict; |
|
34 |
33 |
35 sub Genutl_AnyToHex ($) { |
34 sub Genutl_AnyToHex ($) { |
36 # changes decimal and hexadecimal numbers to the required hexadecimal format |
35 # changes decimal and hexadecimal numbers to the required hexadecimal format |
37 my $Num=$_[0]; |
36 my $Num=$_[0]; |
38 $Num=lc $Num; # lower casing the x specifying hexadecimal essential |
37 $Num=lc $Num; # lower casing the x specifying hexadecimal essential |