Subversion Repositories DevTools

Rev

Rev 285 | Rev 289 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 285 Rev 287
Line 86... Line 86...
86 
    #
 86 
    #
87 
    #   Create the file
 87 
    #   Create the file
88 
    #   Save the file handle
 88 
    #   Save the file handle
89 
    #
 89 
    #
90 
    open( $self->{'FH'}, ">", $name ) || ::Error( "Cannot create '$name'");
 90 
    open( $self->{'FH'}, ">", $name ) || ::Error( "Cannot create '$name'");
- 
 
 91 
    binmode ( $self->{'FH'} )
- 
 
 92 
        if ( $self->{'TYPE'} eq 'sh' );
91 
 
 93 
 
92 
    #
 94 
    #
93 
    #   Bless my self and return a handle
 95 
    #   Bless my self and return a handle
94 
    #
 96 
    #
95 
    return bless $self, __PACKAGE__;
 97 
    return bless $self, __PACKAGE__;