Deparse: Emit package before use

[perl5.git] / lib / integer.pm

diff --git a/lib/integer.pm b/lib/integer.pm
index 998574f..60a609c 100644 (file)
--- a/lib/integer.pm
+++ b/lib/integer.pm
@@ -1,5 +1,7 @@
 package integer;
 
+our $VERSION = '1.01';
+
 =head1 NAME
 
 integer - Perl pragma to use integer arithmetic instead of floating point
@@ -36,7 +38,7 @@ integers, i.e., -(2**31) .. (2**31-1) on 32-bit architectures, and
     $z = 2.7;
     $a = 2**31 - 1;  # Largest positive integer on 32-bit machines
     $, = ", ";
-    print $x, -$x, $x + $y, $x - $y, $x / $y, $x * $y, $y == $z, $a, $a + 1;
+    print $x, -$x, $x+$y, $x-$y, $x/$y, $x*$y, $y==$z, $a, $a+1;
 
 will print:  5.8, -5, 7, 3, 2, 10, 1, 2147483647, -2147483648