Lines Matching refs:minor
33 $major $minor $minor_write $fancy);
41 $minor = 6;
82 is ($header->{minor}, $minor_write, "minor number");
169 # Needs to be more than 1, as we're already coding a spread of 1 minor version
179 my $minor4 = $header->{minor} + 4;
182 # Now by default newer minor version numbers are not a pain.
184 is ($@, "", "by default no error on higher minor");
189 "/^Storable binary image v$header->{major}\.$minor4 more recent than I am \\(v$header->{major}\.$minor\\)/",
190 "higher minor");
197 "/^Storable binary image v$major1\.$header->{minor} more recent than I am \\(v$header->{major}\.$minor\\)/",
201 my $minor1 = $header->{minor} - 1;
204 "/^Storable binary image v$major1\.$minor1 more recent than I am \\(v$header->{major}\.$minor\\)/",
205 "higher major, lower minor");
237 "/^Corrupted storable $what \\(binary v$header->{major}.$header->{minor}\\)/",
240 # Now drop the minor version number
245 "bogus tag, minor less 1");
246 # Now increase the minor version number
252 "/^Storable binary image v$header->{major}.$minor4 contains data of type 255. This Storable is v$header->{major}.$minor and can only handle data types up to 26/",
253 "bogus tag, minor plus 4");
259 "/^Storable binary image v$header->{major}\.$minor4 more recent than I am \\(v$header->{major}\.$minor\\)/",
260 "higher minor");