Drop "v" prefix from sprintf("%vd", $^V).

[p5sagit/p5-mst-13.2.git] / t / lib / Devel / switchd.pm

package Devel::switchd;
use strict; BEGIN { } # use strict; BEGIN { ... } to incite [perl #21890]
package DB;
sub DB { print join(",", caller), ";" }
1;