diff options
| author | chromatic <chromatic@wgz.org> | 2006-09-01 02:12:45 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-09-04 12:41:39 +0000 |
| commit | 63acfd0033368edc5dd21a89732267e5921511f1 (patch) | |
| tree | 1682996f5aefdbfe31dbba57de31bcaf806124fc /pod/perltie.pod | |
| parent | ee6b43cc19efb39ed8a2fdad01d701e59dbdd946 (diff) | |
| download | perl-63acfd0033368edc5dd21a89732267e5921511f1.tar.gz | |
Re: AW: [PATCH pod/*] Use Direct Object Constructor Calls
Message-Id: <200609010912.46314.chromatic@wgz.org>
p4raw-id: //depot/perl@28778
Diffstat (limited to 'pod/perltie.pod')
| -rw-r--r-- | pod/perltie.pod | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pod/perltie.pod b/pod/perltie.pod index b4c2baf20f..9ee5b2c487 100644 --- a/pod/perltie.pod +++ b/pod/perltie.pod @@ -1010,7 +1010,7 @@ a scalar. sub TIESCALAR { my $class = shift; my $filename = shift; - my $handle = new IO::File "> $filename" + my $handle = IO::File->new( "> $filename" ) or die "Cannot open $filename: $!\n"; print $handle "The Start\n"; |