123456789101112131415161718192021222324252627 |
- #! /usr/bin/env perl
- # http://code.google.com/p/perl-compiler/issues/detail?id=148
- # Opening Bareword Filehandles for Writing does not work
- use Test::More tests => 2;
- use strict;
- BEGIN {
- unshift @INC, 't';
- require "test.pl";
- }
- # failed 5.10 only (B::FM object for GvFORM)
- #my $todo = ($] =~ /^5\.010/) ? "TODO " : "";
- my $todo = ""; # fixed with 1.45_08
- my $tmp = "ccode148i.tmp";
- ctestok(1, "C,-O3", 'ccode148i', '$tmp="ccode148i.tmp";open(FH,">",$tmp);print FH "1\n";close FH;print "ok" if -s $tmp', "#148 bareword IO") and unlink $tmp;
- ctestok(2, "C,-O3", 'ccode149i', <<'EOF', $todo.'#149 format with bareword IO');
- format Comment =
- ok
- .
- {
- local $~ = "Comment";
- write;
- }
- EOF
|