1*b39c5158Smillert#!/usr/bin/perl 2*b39c5158Smillert# 3*b39c5158Smillert# This code is used by lib/perl5db.t !!! 4*b39c5158Smillert# 5*b39c5158Smillert 6*b39c5158Smillertpackage Pie; 7*b39c5158Smillert 8*b39c5158Smillertsub INCORRECT (DB); 9*b39c5158Smillert 10*b39c5158Smillert1; 11