diff options
| author | Paul Marquess <paul.marquess@btinternet.com> | 2002-03-02 22:50:44 +0000 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-03-03 04:15:49 +0000 |
| commit | 8312d5eed0ccd02647bf95699e93c1d5dd24974a (patch) | |
| tree | 9729c305a67ab5fb61ea77cf28444a7cf4479092 /t | |
| parent | 5695c80c5c2442f60ae2279804e263a5d951ef99 (diff) | |
| download | perl-8312d5eed0ccd02647bf95699e93c1d5dd24974a.tar.gz | |
RE: VERSION core
From: "Paul Marquess" <paul_marquess@yahoo.co.uk>
Message-Id: <AIEAJICLCBDNAAOLLOKLEEHNDOAA.paul_marquess@yahoo.co.uk>
p4raw-id: //depot/perl@14953
Diffstat (limited to 't')
| -rwxr-xr-x | t/comp/use.t | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/t/comp/use.t b/t/comp/use.t index fb597770d0..e0281b4d20 100755 --- a/t/comp/use.t +++ b/t/comp/use.t @@ -5,7 +5,7 @@ BEGIN { @INC = '../lib'; } -print "1..27\n"; +print "1..28\n"; my $i = 1; eval "use 5.000"; # implicit semicolon @@ -168,3 +168,18 @@ print "ok ",$i++,"\n"; } print "ok ",$i++,"\n"; } + + +{ + # Regression test for patch 14937: + # Check that a .pm file with no package or VERSION doesn't core. + open F, ">xxx.pm" or die "Cannot open xxx.pm: $!\n"; + print F "1;\n"; + close F; + eval "use lib '.'; use xxx 3;"; + unless ($@ =~ /^xxx defines neither package nor VERSION--version check failed at/) { + print "not "; + } + print "ok ",$i++,"\n"; + unlink 'xxx.pm'; +} |