cpet/openbsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

oops, avoid IO::Scalar, which is a local module.

Browse Source 
perl 5.8.0 does scalars directly.
This commit is contained in:
espie 2006-02-09 12:03:55 +00:00
parent ab8eafb0a7
commit fd27df373d
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
infrastructure/package/register-plist
View File

@ -1,6 +1,6 @@
#! /usr/bin/perl #! /usr/bin/perl
# $OpenBSD: register-plist,v 1.6 2006/02/09 11:39:02 espie Exp $ # $OpenBSD: register-plist,v 1.7 2006/02/09 12:03:55 espie Exp $
# Copyright (c) 2005 # Copyright (c) 2005
# Marc Espie. All rights reserved. # Marc Espie. All rights reserved.
# Redistribution and use in source and binary forms, with or without # Redistribution and use in source and binary forms, with or without
@ -32,8 +32,6 @@ use OpenBSD::PackingList;
package OpenBSD::PackingElement; package OpenBSD::PackingElement;
use IO::Scalar;
sub forget_details sub forget_details
{ {
} }
@ -48,8 +46,8 @@ sub compare
{ {
my ($self, $self2) = @_; my ($self, $self2) = @_;
my ($data, $data2); my ($data, $data2);
my $fh = new IO::Scalar \$data; open(my $fh, '>', \$data);
my $fh2 = new IO::Scalar \$data2; open(my $fh2, '>', \$data2);
$self->write($fh); $self->write($fh);
$self2->write($fh2); $self2->write($fh2);
close($fh); close($fh);